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Ninth Edition (April 1978) 


This is a major revision of, and obsoletes, SC21-7522-7 and technical newsletters 
SN21-5405, SN21-5511, and SN21-5495. Because the changes and additions are 
extensive, this manual should be reviewed in its entirety. 


This edition applies to the following IBM System/3 programs and to all subsequent 
versions and modifications until otherwise indicated in new editions or technical 
newsletters. 


Version Modification Program Number Program Name Model 
16 0 5703-SM2 CCP/Disk Sort Program 4 

16 0 5799-ATF CCP/Disk Sort Program 8, 10 
5 0 5799-ATG CCP/Disk Sort Program t2 

7 0 5799-ATH CCP/Disk Sort Program 15 

4 0 5704-SM7 CCP/Disk Sort Program 15D 
16 0 5703-SM1 Disk Sort Program 6 

16 0 5702-SM1 Disk Sort Program 8,10 
5 0 5705-SM1 Disk Sort Program 12 

7 0 5704-SM1 Disk Sort Program 15 

4 0 5704-SM9 Disk Sort Program 15D 


Changes are periodically made to the information herein; these changes will be reported 
in technical newsletters or in new editions of this publication. 


Use this publication only for the purposes stated in the Preface. 


Publications are not stocked at the address below. Requests for copies of IBM 
publications and for technical information about the system should be made to 
your 1BM representative or to the branch office serving your locality. 


This publication could contain technical inaccuracies or typographical errors, 
Address comments concerning the contents of this publication to 1BM Corporation. 
Publications, Department 245, Rochester, Minnesota 55901. IBM may use and 
distribute any of the information you supply in any way it believes appropriate 
without incurring any obligation whatever. You may, of course, continue to use 
the information you supply. 


© International Business Machines Corporation 1970, 1971, 1972, 1973, 1975, 1976, 1978 
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This manual helps the System/3 programmer fill out the 
sequence specifications needed in order to run: 


®@ The System/3 Disk Sort program on System/3 Models 
4,6, 8, 10, 12, and 15 


@ The System/3 CCP/Disk Sort program on System/3 
Models 4, 8, 10, 12, and 15 


Two coding sheets are discussed in this manual: 
@ Sequence Specifications, GX21-9089 


@ Translation Table and Alternate Collating Sequence 
Coding Sheet, GX21-9096 


The How to Use This Manual section in Chapter 1 explains 
the organization of this book. 


For ease of illustration, many of the examples in this book 
use card-like figures to represent records. This does not 
imply that a card device must be used for input or output 
in these situations. Any of several input/output devices 
might be used, depending on which System/3 model and 
configuration you are using. 


IBM System/3 5448 Disk Storage Drive 


The IBM System/3 5448 Disk Storage Drive on System/3 
Models 8 and 10 uses the same program product support 
as the 1BM 5445 Disk Storage. However, a separate system 
contro! program feature is required for the 5448. In 
general, references to 5445 in this manual also apply to 
5448. For specific information about 5448 operating 
characteristics and programming support, see /BM 
System/3 5448 Disk Storage Drive Program Reference 
Manual, GC21-5168. 


Preface 


System/3 Model 4 users should note that: 


@ System/3 Model 4 is supported by System/3 Model 6 
System Control Programming and Program Products. 
The facilities described in this publication for the 
Model 6 are also applicable to the Model 4, although 
the Model 4 is not referenced. 


@ Not all devices and features available on the Mode! 6 
are available on the Model 4. Therefore, Model 4 users 
should be familiar with the contents of the /BM 
System/3 Model 4 Introduction, GC21-5146. 


@ All references to the 5444 disks on systems without 
3340 Direct Access Storage Facility also apply to the 
5447 disks unless otherwise noted. 


System/3 Model 8 users should note that: 


@ The System/3 Model 8 is supported by System/3 
Model 10 Disk System System Control Programming and 
Program Products. The facilities described in this publi- 
cation for the Model 10 are also applicable to the 
Model 8, although the Model 8 is not referenced. 


@ Not all devices and features available on the Model 10 
are available on the Model 8. Therefore, Model 8 users 
should be familiar with the contents of the /BM 
System/3 Model 8 Introduction, GC21-5114. 


System/3 Model 10 Disk System users should note that: 
@ In this publication the System/3 Model 10 Disk System 


is termed the Model 10. Without exception, all references 
to Model 10 apply to the Model 10 Disk System. 


System/3 CCP/Disk Sort Program for Models 8, 10, 
12, and 15 
Appendix | points out the differences between the CCP/ 


Disk Sort Programs for Models 8, 10, 12, and 15 and the 
corresponding Disk Sort Program for these systems. 


System/3 Models 12 and 15 users should note that: 


@® The !BM 3340 Direct Access Storage Facility attaches 
to the System/3 Model 12 and to the System/3 
Models 15B, 15C, and 15D. 


@ The IBM 3344 Direct Access Storage attaches to the 
System/3 Model 15D. 


@ Certain areas on the 3340 and 3344 disks are treated as 
5444 disks. These areas are known as 5444 simulation 
areas and are used for the program libraries and can be 
used for data files. The remainder of the disk space Is 
known as the ma/n data area and can only be used for 
data files. 


® References in this manual to the 5444, 5445, and 3340 
are to be interpreted according to which disk storage 
device(s) is(are) attached to your system. The following 
table is used to determine the meaning of the reference: 


Reference 


Models 
8 and 10 





Meaning 


5444 Disk 
Storage Drive 


5448 Disk 
Storage 
Drive or 
(Model 10) 
5445 Disk 
Storage 


Model 
15A 


Meaning 


Models 12, 
15B, 15C 


Model 
15D 








5444 Disk 
Storage Drive 


Meaning 


5444 simulation 
area on 3340 


Meaning 


5444 simulation area 
on 3340 or 3344 





5445 Disk 
Storage 


Main data area 
on 3340 


Main data area on 
3340 or 3344 








Not 
applicable 





Not 
applicable 


@ Ail references to the System/3 Model 15 in this manual 
apply to all models of Model 15 as specified below 
unless otherwise indicated: 
— For Disk Sort, program number 5704-SM1 for 

Models 15A, 15B, and 15C; and program number 


Main data area 
on 3340 





Main data area on 
3340 or 3344 





5704-SM9 for Model 15D. 
— For CCP/Disk Sort, program number 5704-SM7 
for Model 15D. 


For further information, see the appropriate publication 
listed under Related Publications; for more information 
about the manuals or the coding sheets, contact your 
nearest 1BM branch office. 


RELATED PUBLICATIONS 





Order Number 
Model 4 Model 6 Model 8 Model 10 | Model 12 | 


GC21-5146 | GA21-9122 | GC21-5114 | GC21-7510 | GC21-5116 | GC21-5094 


eters GC21-5077 
ateed ete pee GC21-7512 @cai-sigo' | 0F aD 
te (5704-SC2) 


Disk Concepts and GC21-7571 
GC21-5144 | GC21-5075 


Planning Guide 
Ge21-5149 | Gc21-7501 Gc21-7508 

GC21-5145 | GC21-5076 

GC 21-7580 


Type of IBM System/3 
Publication 


























































Messages/Halt Guide GC21-7541 GC21-7540 


GC21-7580 


GC21-5150 
Program Logic Manuals: 


Disk Sort and LY21-0517 


CCP/Disk Sort PLM 
SY 21-0502 





Communications Control 
Program Terminal 
Operator’s Guide 





CCP Programmer’s 
Reference Manual 








GC21-7579 





System Control 
Program PLM 


Scheduler PLM 
Data Management PLM SY21-0512 


SY21-0046 | SY21-0033 












SY21-0035 








SY21-0034 
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This publication is designed to help you, the programmer, 
use System/3 Disk Sort and System/3 CCP/Disk Sort. The 
CCP/Disk Sort Program is used with the Communications 
Control Program on the System/3 Model 4 with Program 
Number 5703-SM2 and Model 15 with Program Number 
5704-SM7. 


HOW TO USE THIS MANUAL 


Your need for reference material varies with programming 
experience and familiarity with a particular system. This 
manual contains four different levels of information: 


1. Overview of Sequence Specifications shows which 
columns on the sequence specifications sheet you 
must consider when you want to sort a disk or tape 
file. 


2. Column Summaries \ist the possible entries for each 
column on the sequence specification sheet. 


3. Column Descriptions explain the possible entries 
for each column in greater detail. 


4. Sample Jobs show how to fill out the sequence 
specification sheets for typical jobs.’ 


Here is how to use each level: 

@ Use the Overview to see which columns on the sequence 
specifications sheet you must consider when you want 
to sort a disk or tape file. 

@ Use the Co/umn Summaries for a quick recall of the 
possible entries for each column on the sequence speci- 


fications sheet. 


@ Use the Column Descriptions when you need a detailed 
explanation of the entries for a particular column. 


@ Use the Sample Jobs to review coding techniques for 
actual jobs.' 


‘See Appendix H for CCP/Disk Sort differences. 


Chapter 1. Introduction 


A column summary and column descriptions are provided 
for each type of specification: 


@ Header 
@ Record type 


@ Field description 


Important Information for Users of System/3 
CCP/Disk Sort 


System/3 CCP/Disk Sort users should review Appendix H 
prior to coding your program for the following reasons: 


@ |f you are knowledgeable with System/3 Disk Sort 
programming and System/3 CCP, Appendix H illus- 
trates the CCP/Disk Sort differences your coding must 
reflect. 


® Appendix H provides a CCP/Disk Sort overview. For 
more details, refer to the chapter discussions. 


@ \f you are a first time user of System/3, System/3 Disk 
Sort, or System/3 CCP/Disk Sort, Appendix H provides 
an orientation to System/3 CCP/Disk Sort for your 
System/3 Model 4 (5703-SM2) or Model 15 with 
Program Number 5704-SM7. 


Additional information on System/3 CCP/Disk Sort 
Programs for System/3 Models 8 and 10 (5799-ATF), 
System/3 Model 12 (5799-ATG), and System/3 Models 
15A, 15B, and 15C (5799-ATH) is provided in Appendix f. 
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SYSTEM CONFIGURATION 

For information concerning the minimum system configur- 
ation for disk sort and additional devices supported, see 
one of the following publications, as appropriate for your 


System/3 model: 


@ /BM System/3 Models 4, 6, 8, 10, and 12 System 
Generation Reference Manual, GC21-5126 


@® /BM System/3 Model 15 System Generation Reference 
Manual, GC21-7616 


@ /BM System/3 Model 6 Introduction, GA21-9122 
@ /BM System/3 Model 8 Introduction, GC21-5114 
@ /BM System/3 Model 12 Introduction, GC21-5116 


@ /BM System/3 Model 15 Introduction, GC21-5094 


Chapter 2. Overview of Disk Sort 


With the IBM Disk Sort or CCP/Disk Sort (also see Appen- 
dix H) Program you can: 


@ Rearrange the records in a disk or tape file: 


a2 


@ Drop records from a disk or tape file: 


eS ] 


@ Reformat the records in a disk or tape file: 


9 aaa * “~ 9 aaa 


—_—_—_——> _—_—_—_—_— 
2 aaa * 
1 aaa * 


* 1 aaa 
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Here is how the Disk Sort or CCP/Disk Sort Program works 
with the records in your file: 


1. Disk sort reads a record from the input file: 


1 5 6 26 27 30 


eee (Pao IEE 





S| 
| Control field A Data Control field B 





Note: Control fields are the fields you want disk sort to 
use to sort the records. See Co/umn 7 under Field Descrip- 
tion Specifications for a detailed discussion of control fields. 


2. Disk sort checks your sequence specifications to see 
whether the record is one you want to sort (often 


you may not want to sort all the records in the file). 


3. If the record is one you want to sort, disk sort builds 


a work record, formatting it according to your sequence 


specifications (the format of the work record is im- 
portant because it controls the format of the output 
record). 


Assume that your sequence specifications say: 

a. Put the contents of positions 27-30 in the input 
record into positions 1-4 of the work record. 

b. Put the contents of positions 1-5 in the input 
record into positions 5-9 of the work record. 

c. Put the contents of positions 6-26 in the input 
record into positions 10-30 of the work record. 


The work record disk sort builds would look like this: 


1 4 5 9 10 30 


: ; I 
Control field B Control field A | Data 


Ll 





See Column 7, Field Description Specifications for 
a more detailed discussion of the work record. 


If you are not dropping control fields, they will al- 
ways precede data fields in the work and output 
records (see Column 28—Header Specifications for a 
discussion of dropping control fields). 


4. Disk sort writes all the records you want to sort into 
the work file. 


5. Disk sort checks your sequence specifications to see 
how you want to arrange the records in the output 
file (ascending or descending order by control fields). 


6. Disk sort writes the records in the output file in the 
order you have specified. The only exception is when 
you want to drop control fields from the output 
record. 


THE THREE TYPES OF SORT: ADDROUT, TAG 
ALONG, AND SUMMARY TAG ALONG 


There are three types of sort jobs: addrout (address out), 
tag along (data fields can tag afong with control fields 
in the sorted records), and summary tag along (data is sum- 


marized in the sorted records). 


The output from an addrout sort job consists of 3-byte 


The output for a tag along sort is a file of sorted records. 


The sorted records can contain: 


® Control fields only 


@ Data only 


binary relative record numbers of the records in the input 


file. 


Sorted records 


Control fields and data 


\ 


Employee master file | 


Control fields only 


Tag along sort 


Disk sort program 


07 175 $3.50 













06 174 $2.25 
05 171 $4.00 
04 170 $2.50 
03 167 $3.15 
02 162 $2.75 


01 150 $3.00 


00 116 $4.00 


Data only 


@ Control fields and data 


Record addresses only 


ee ON ~anenagmeme 


Addrout sort 
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The output for a summary tag along sort is a file of sorted 
records. The sorted records can contain: 


® Control fields, data fields, and summary data 
® Control fields only 
® Data fields and summary data 


@ Summary data fields only 


RUNNING THE DISK SORT OR CCP/DISK SORT 
PROGRAM 









OCL 
statements! 







File to be 
sorted” 


Sequence 





Input aes > 
specifications” 





Processing Work file* 






Disk Sort program 


Sorted file® 






Output 


‘oc statements are your instructions to the computer. 

? Sequence specifications are your instructions to the disk sort 
program. 

File to be sorted can be an indexed, sequential, or direct disk 
file, or a sequential tape file (or card or 3741 diskette file for 
Mode! 15). 

4 Work file is an area on disk where disk sort writes all the records 
you want to sort. The program can then work with the records 
there without disturbing the input file. 

5 Sorted file can contain: 

a. The relative record numbers of the records in the file 
b. Part or all of the records themselves (forming a sequential 
file) 


SEQUENCE SPECIFICATIONS SHEET 


The sequence specifications sheet contains three different 
kinds of specifications: header, record type, and field 
description. The sample specifications sheet below shows 


the location and purpose of all three. 


IBM SEQUENCE SPECIFICATIONS 
. Header 





ell a 
| 









































7 Field_ 






























































| Record type specifications 
\ 
i 

















Header specifications 


Field description specifications 
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Order of Sequence Specifications 

The normal order of sequence specifications is: 
1. Header line 

2. Record type lines 

3. Field description lines 


This order can vary, however, depending on how many 
records you want to sort and the format of those records 
(format refers to the locations, lengths, and types of fields 

in arecord). If, for example, you want to sort all the records 
in a file — and they all have the same format — you do not 
have to fill out record type specifications (this is often re- 
ferred to as implied include-all). 


Number of Records Format of Records 
to Be Sorted to Be Sorted Order of Sequence Specifications 





All the records in All the same . Header line 
the file (implied . Field description lines 
include-all) 


Some of the Ali the same . Header line 
records in the file . Record type lines 
Field description lines 





All or some of Several . Header tine 
the records in different . Record type lines For first type of 
the file formats . Field description lines record format 


Record type lines i For second type 
Field description lines of record format 


Record type lines One set for each additional 
Field description lines N type of record format! 


1 This does not mean that the records in the file must be grouped by format type. The sequence specif- 


ications must be grouped (one set of record type and field description lines for each format type). The 
records themselves can be in any order. 





For detailed information on how to include or omit certain Appendix B summarizes: 

records when you are sorting a file, see Co/umn 6 under 

Record Type Specifications. @ The advantages and disadvantages of each of these 
methods 

How to Supply Sequence Specifications @ The interrelationship of the three methods of supplying 
sequence specifications and three of the OCL cycles 

You can supply the sequence specifications from: (LOAD, BUILD, and CALL) 


© The device you are using to supply the OCL statements Note: Regardless of the method used to read the sort 


specification statements, the system input device is 
dedicated to the partition in which the sort is running 
until all such statements are read. 


@ An OCL procedure containing the LOAD, FILE, and 
RUN statements for the job (the OCL procedure may or 
may not contain other jobs) 


® Asource library module 
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OCL STATEMENTS 


Before your system can run a sort job, it needs certain in- 


formation about the disk sort program, the sequence speci- 
fications for the job, and the files involved in the job (every 
sort Job uses a minimum of three files: an input file, a work 


file, and an output file). You supply this information in 


OCL statements. Here is the information you must supply: 


About the Sequence Specifications 


wm 


How you are going to enter the sequence specifications 


(for example, keyboard for the Model 6, MFCU for 
the Model 10, 1442 or MFCU for the Model 12, or 
display station or MFCU for Model 15). 


Where you want any computer-to-operator messages 
printed. 


About the Program 


1. 


2. 


Name of the program you want to run ($DSORT). 


Disk drive location of the disk sort program. 


About the Input File 


1. 


Name of the file you want to sort. The FILE state- 
ment name must be INPUT (or INPUT1,..., IN- 
PUT8 for Model 12 or Model 15). However, if the 
file name is not INPUT (or INPUT1,..., INPUTS 
for Model 12 or Model 15), use the LABEL key- 
word to identify the actual file name. 


Unit assignment of the file you want to sort: 

a. All Models Except Model 4: Removable disk 1 
or 2 (R1 or R2) or fixed disk 1 or 2 (F1 or F2) 
for the 5444 
Model 4; Removable disk R1 or fixed disk R2, 
Fi, or F2 for the 5447 

b. Model 10: Drive 1 or 2 (D1 or D2) for the 5445 
and the 5448. 

c. Model 712: Drive 1 or 2 (D1 or D2) for the 3340 
main data area 

d. Model 15: Drive 1, 2, 3, or 4 (D1, D2, D3, or 
D4) for the 5445 or 3340 

e. Mode/ 15D: Drive 3 [D31 (D3), D32, D33, 
and D34] or Drive 4 [D41 (D4), D42, D43, 
and D44] for the 3344. 

f. Drive 1, 2, 3, or 4 (11, T2, 73, or T4) for tape 

g. Also supported on the Model 15 are MFCU, 
MFCM, 1442, 2501, and 3741 

h. If the file is spooled to disk, sort uses the file 
as if it were coming from the device of 
original entry. 
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3. Name of the disk pack or tape that contains the file. 


4. If you use tape, specify UNIT, BLKL, and RECL. 


a 


If you use the 3741, specify RECL (Mode! 15 only). 


About the Work File! 


dis Name of the file you are going to use as a work area. 
The FILE statement name must be WORK, however, 
if the name of your file is not WORK, use the LABEL 
keyword to indicate the actual name of the file. 


2. Disk drive location (unit) of the work file: 


a. 


All Models Except Model 4: Removable disk 1 
or 2(R1 or R2) or fixed disk 1 or 2 (F1 or F2) 
for the 5444 

Model 4: Removable disk R1 or fixed disk R2, 
F1, or F2 for the 5447 


. Mode/ 70: Drive 1 or 2 (D1 or D2) for the 5445 


and the 5448. 


. Mode/ 72: Drive 1 or 2 (D1 or D2) for the 3340 


main data area 


. Model 715: Drive 1, 2, 3, or 4 (D1, D2, D3, or 


D4) for the 5445 and 3340 

Model 15D: Drive 3 [D31 (D3), D32, D33, 
and D34] or Drive 4 [D41 (D4), D42, D43, 
and D44] for the 3344. 


3. Name of the disk pack that contains the file. 


4. Number of tracks in the file. (Do not specify number 
of records.) 


5. Status of the file. The work file should be a scratch 
file since you won’t need its information after a sort 
job. 


sort run. 


Note: The work file must be online at all times during the 


‘Tf the file you want to use is an old (temporary) file, you must 
also supply the location at which the file begins. 
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About the Output File! 


1. Name you are going to call the sorted file. The FILE 
statement name must be OUTPUT: however, if the 
name of your file is not OUTPUT, use the LABEL 
keyword to indicate the actual name of the file. 


2. Unit assignment of the sorted file: 

a. All Models Except Model 4: Removable disk 1 
or 2(R1 or R2) or fixed disk 1 or 2 (F1 or F2) 
for the 5444 
Model 4: Removable disk R1 or fixed disk R2, 
F1, or F2 for the 5447 

b. Mode! 70: Drive 1 or 2 (D1 or D2) for the 5445 

c. Mode! 12: Drive 1 or 2 (D1 or D2) for the 3340 
main data area 

d. Mode! 15: Drive 1, 2, 3, or 4 (D1, D2, D3, or 
D4) for the 5445 or 3340 

e. Drive 1, 2, 3, or 4 (T1, T2, T3, or T4) for tape 

f. Model 15D; Drive 3 [D31 (D3), D32, D33, 
and D34] or Drive 4 [D41 (D4), D42, D43, 
and D44]} for the 3344. 


3. Name of the disk pack or tape on which you are 
going to put the sorted file. 


4. Number of records or tracks in the file. 


5. Status of the file. If the file exists before this sort, 
it cannot have permanent status. If the file is built 
during the sort, it can have temporary or permanent 
status. 


6. If tape is used, UNIT, BLKL, and RECL must be 
specified. 
Notes: 
1, You may not have your output file deferred if it is a 
split cylinder file. 
2. If the END parameter is not used, disk sort defaults 
to rewinding and unloading tape files. 


File Considerations 
Input: General 


The input file contains records to be sorted. Any file 
created by System/3 data management can be used as input 
to disk sort; for example, an RPG II file or a file from a 
previous disk sort run. The disk file may have been created 
by any processing method ~— sequential, indexed, or direct. 
A tape file must have been created sequentially. Since 
direct file areas are set to blanks before the file is created, 
you should test for and omit blank records. You can do 
this by testing a position that is known never to contain 
blanks. 


"Tf the file you want to use is an old (temporary) file, you must 
also supply the location at which the file begins. 
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Input: Model 6 and Model 10 


The FILE statement name must be INPUT. However, the 
actual file need not be called INPUT because the LABEL 
keyword allows you to identify the tile you will be sorting. 
The input file may be multivolume (online or offline). 
However, for SORTA jobs, when the input file is processed 
by an RPG II program with your sorted addrout fite, the 
input file must be online. 


The volumes containing the INPUT file must be mounted 
online prior to running disk sort. However, if the input 
file is offline multivolume, (more than ene voiume assigned 
to a removable unit), only the first volume assigned to each 
unit is required to be mounted. If the input file is not on- 
line prior to running, the job will end with message SD 

105 (INPUT FILE NOT ONLINE) followed by a CD45 
halt (Model 6) or a 25 halt (Madei 10). 


lf your input file is ASCII and ASCH-YES is not specified 
on the input file card, all data is treated as if itis EBCDIC. 
EBCDIC and ASCII data cannot be mixed in a sort run, 
An ASCII input file requires an ASCII output file and an 
EBCDIC input file requires an EBCDIC output file. 


When ASCH is specified for input and output, packed data 
should not be specified in the sort specifications since 
ASCII does not support packed data. 


Variable-length blocks are not allowed by disk sort tape 
1/O; the job will end if they are encountered. 


Mu/stiple Input: Mode! 6 and Model 10 


Disk sort supports multiple file input to the same extent 
that System/3 data management supports multiple file 
input. For more information on this subject, see the multi- 
volume file discussion in the /BM System/3 Mode! 10 Disk 
System Control Programming Reference Manual, 
GC21-7512 or the /BM System/3 Model 6 Operation Con- 
trol Language and Disk Utility Programs Reference Manual, 
GC21-7516. 


Restrictions for multiple file input to disk and tape files are: 
Disk Multiple File Input: Muttiple files can be used as 


input if they are made to appear as multivolume files with 
the following restrictions: 


1. Labels must ali be the same. 
2s Record lengths must all be the same. 
3 Files reside on ditferent packs. 


Tape Multiple File Input (Mode! 10): Muitiple files can be 
used as input if they are specified as multivolume files with 
the following restrictions: 


1. RECL and BLKL must be the same. 


2. Record format must be the same. 
3. Unlabeled or nonstandard tape files. 
4. Files must have the same attributes (such as, use of a 


9-track, 7-track, ASCII, EBCDIC, parity, density, 
CONVERT, or TRANSLATE). 


Note: Standard labeled tape files camnot be used for 
multiple file input. 


Input: Model 12 

Input can be from either of the following devices: 
@ 3340 Direct Access Storage Facility 

@ 3410/3411 Magnetic Tape Subsystem 


Up to eight files can be used as input using any combination 
of the preceding devices. The file names must be: INPUT 
or INPUT1 (but not both), INPUT2, INPUTS, INPUT4, 
INPUT5, INPUT6, INPUT7, and/or INPUTS. 


The files will be processed INPUT (or INPUT1) serially to 
INPUT8 regardless of the order of the OCL FILE state- 
ments. The lowest numbered input file will be processed 
fully first, then the next numbered input file will be 
processed in its entirety, then the next until all the files 


have been individually processed in sequence. For a particu- 


lar disk sortrun, the input files do not have to be numbered 
serially; that is, the file names may be INPUT3, INPUT5, 
and INPUT8, or a particular run could have just INPUTS 

as the input file. 


All single-volume disk files must be online prior to running 
disk sort. However, when using multivolume offline disk 
files, only the first volume assigned to each unit must be 
mounted prior to running disk sort. When using 3340 
multivolume offline disk files, D1 cannot be used. 


Input record length is defined as the record length used 
for the disk and/or tape files. 


Special Considerations: \When more than one input file is 
used, the foilowing must be considered: 


@ Addrout sort is not allowed. 


@ Auto allocation of the work file should be used with 
caution. For best performance, use a work file statement. 


@ The record lengths of all disk or tape files must agree. 
This is not true for block lengths. Tape files may have 
different block lengths. 


Data Considerations: When running in a multiple device 
mode, the data restrictions for any one input device apply 
to all input devices. For example, if disk input is combined 
with a 7-track translate input file, packed fields should not 
be used in the disk sort specifications since a 7-track trans- 
late record can contain only the System/3 64-character set. 


input can be mixed EBCDIC and ASCII with either 

EBCDIC or ASCII output. However, when ASCII is specified, 
packed data should not be specified in the disk sort specitfica- 
tions since ASCI1i does not support packed data. 
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Input: Model 15 

Input can be from any of the following devices: 
@ 5444 Disk Storage Drive 

@ 5445 Disk Storage 

@ 3340 Direct Access Storage Facility 

® 3344 Direct Access Storage (Model 15D only) 


®@ 3410/3411 Magnetic Tape Subsystem 


Note: For the following devices, use a device independent 
FILE statement. 


@ 1442 Card Read Punch 
@ 2501 Card Reader 


@ 3741 Data Station or 3741 Programmable Work Station 
directly attached 


@ 2560 Multi-Function Card Machine (MFCM) 
or 
5424 Multi-Function Card Unit (MFCU) 


Up to eight files can be used as input using any combination 
of the preceding devices. The file names must be: INPUT 
or INPUT1 (but not both), INPUT2, INPUT3, INPUT4, 
INPUTS, INPUT6, INPUT7, and/or INPUTS. 


The files will be processed INPUT (or INPUT1) serially to 
INPUTS regardless of the order of the OCL FILE state- 
ments. The lowest numbered input file will be processed 
fully first, then the next numbered input file will be proces- 
sed in its entirety, then the next until all the files have been 
individually processed in sequence. For a particular disk 
sort run, the input files do not have to be numbered serially; 
that is, the file names may be INPUT3, INPUTS, and IN- 
PUTS, or a particular run could have just INPUTS as the 
input file. 


Card input files will have a record-length characteristic of 
the device. If card input files are used with disk or tape files, 
the card input is truncated or padded on the right with 
blanks to the record length specified for the disk or tape 
files. 


Single-volume disk files need not be online prior to running 
disk sort. However, when using multivolume offline disk 
files, the first volume assigned to each unit must be mount- 
ed prior to running disk sort. When using 3340 multivolume 
offline disk files, D1 cannot be used. 
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Input record length is defined as the record length used for 
the disk and/or tape files. If the 3741 and/or cards are the 
only input, the input record length is the largest specified 
for the 3741 or 80 or 96 for card input -- whichever is 
largest. 


Special Considerations: When more than one input file is 
used, the following must be considered: 


® Addrout is not allowed. 


® Auto allocation of the work file should be used with 
caution. For best performance, use a work file 
statement. 


@ The record lengths of all disk (5444 5445 or 3340) 
or tape files must agree. This is not true for block 
lengths. Tape file may have different block lengths. 


Data Considerations: When running in a multiple device 
mode, the data restrictions for any one input device apply 
to all input devices. For example, if disk input is com- 
bined with 5424 MFCU input, packed fields should not be 
used in the disk sort specifications since 96-column cards 
can contain only the System/3 64-character set. 


Input can be mixed EBCDIC and ASCII with either 
EBCDIC or ASCII output. However, when ASCII is speci- 
fied, packed data should not be specified in the disk sort 
specifications since ASCII does not support packed data. 


Considerations for Writing the Output File Over the Input 
File: \f the output file is to be written over the input file 
(load to old), the output file will be scratched at the end of 
job under the following conditions, as though RETAIN-S 
had been specified for the output FILE statement: 


1. A pack containing an input file is not online at the 
start of the job (deferred mount) 


2. RETAIN-S is used on the FILE statement for the 
input file 


To avoid this problem, use RETAIN-T for the input FILE 
statement. 


CAUTION 

When running disk sort program (5704-SMQ) using output 
over input, take care to ensure that another partition does 
not share the file to be overlaid during sort execution. 

If this condition occurs, sort may not be able to reopen 
the file as an output file at output time. This may result 
in an unrecoverable halt. 


Work File 


The work file is generally an area on disk which you have 
set aside as a work area. The disk sort program uses this 
area as working storage during the sorting process. 


The FILE statement name must be WORK. If the name of 
the work area is not WORK, use the LABEL keyword to 
indicate the file you will be using. 


A work file should be given scratch status (RETAIN-S), be- 
cause it is normally created during the sort and has no func- 
tion afterwards. tt is always allocated with a multivolume 
attribute, even though its FILE statement may indicate 
single volume. 


The work file may be multivolume, but all of the volumes 


must be online. If either the input or output files are multi- 


volume offline, the removable units containing these multi- 
volume offline files may not be used for the work file. 


The work file may be specified on the 5444 or 5445 drives 
but not on both. An error occurs if work files are allocated 
on both 5444 and 5445 drives. 


When specifying the work file on the 3340 (Model 12 and 
Model 15), be certain to specify only the 3340 main data 
area or the simulation area, but not both. 


When a new output file is specified and a work FILE state- 
ment Is given with the same unit as the output file, a halt 
can occur. The halt is issued when the space allocated for 
the work file overlaps the area where the new output file is 
to be located. To avoid the halt, either omit the work 
FILE statement and let automatic allocate handle the work 
file or specify locations for both the work file and new out- 
put file. 


Disk sort work files are opened with multivolume file 
attributes. If RETAIN-S is used for sort with Model 15 
data packs, no problems are encountered. However, if a 
System/3 Madel 6 or Model 10 data pack is used on Model 
15 and a nonmultivolume file is attempting to overlay an 
old System/3 work file and you are using all the original 
work FILE parameters (LABEL, TRACKS, LOCATION, 
etc), a terminal error will occur. 


When a work file statement is specified on Model 15 
systems for 3340s (D1, D2, D3, D4), the verify option is 
taken from the file statement. Column 34 of the sort 
header staternent is ignored. 


Automatic Work File Allocation 


If the FILE statement is omitted from the disk sort OCL, 
disk sort uses the automatic allocatio.s function to allocate 
from one to a maximum of four scratch areas, each on 

a different drive. If four scratch areas are not available, 
disk sort attempts to allocate three, and so on. The scratch 
areas are allocated from: 


1. Available 5445 packs or 3340 areas 
2. Available 5444 fixed and removable packs 


Note. See chart in the preface of this manual for the disk 
storage drives applicable to a particular system. 


The first choice of the automatic allocation function is the 
5445 Disk Storage or the 3340 Direct Access Storage 
Facility. If a 5445 or 3340 cannot be used, automatic 
allocation tries to find space on the 5444 disks. 


Automatic work file allocation uses scratch areas from the 
available disk packs. A disk pack is considered available 

if the pack does not need to be removed while disk sort 

is executing. 


On any given drive, the automatic allocation selects 

the largest contiguous disk area available. Therefore, a 
job being executed in another program level or partition 
may not find enough disk space available. This condition 
can be minimized to some extent if the disk packs have 
been fragmented, that is, if a file is intentionally located 
in the middle of a pack, there will be two contiguous areas 
instead of one. The degree of pack fragmentation and the 
location of the fragmented files must be evaluated by each 
user, 


All automatically allocated scratch areas (work file areas) 
are returned to system use after the disk sort run is 
completed. 


Notes: 

1. Disk sort may exhaust the work areas selected by 
automatic work file allocation. When this occurs, 
sort issues the message WORK FILE TOO SMALL. 
To bypass this condition, increase the size of the free 
areas or specify the work area with a FILE statement. 

2. When running a disk sort job using automatic work file 
allocation, never change packs unless requested to do so 
by a message. 

3. The verify option in column 34 of the header statement 
applies to any automatically allocated work file. 
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Automatic Work File Allocation with Multiple File Input 
(Model 12 and Model 15) 


If more than one input file is assigned to a specific device 
type (5445 or 3340 or the 5444), then any unit of that 
type that contains an input file will not be used for auto- 
matic work file allocation. 


For example, if filename INPUT is assigned to unit D1, 
INPUT3 to unit R2, and INPUT7 to unit D2, units D1 and 
D2 are not available for automatic allocation since more 
than one file is assigned to the 5445. 


Note: Unit R2 is available since only one input file was 
assigned to that device type. 


Directed Automatic Work File Allocation 
(Model 12 and Model 15) 


In order to limit or select the 5444, 5445, 3340, or 3344 
drives that are available to disk sort for automatic work file 
allocation, you can use a SWITCH OCL statement. The 
SWITCH statement consists of eight characters; one for 
each of the eight external indicators (U1-U8). The first 

or leftmost character gives the setting of indicator U1; the 
second gives the setting of U2; and so on. 






File 
Allocation 





Indicator 














U1&U2[U3 | ua | us | ue | U7 
5444 directed or Ix |x |x |r| ro 
5445/3340 11 1X |X |p1 | p21] D3 






directed 


X = Not used 
a 
Ul and U2 = 00 No request 
01 5444 directed automatic allocate 


is requested 
10 ~No request 


11. 6445/3340 directed automatic 
allocate is requested 






i 









U3 and U4 Not used 
U5, U6, U7, When set to a 1, the unit requested 
and U8 is considered available for auto 


allocation of the work file 
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When requesting a 5444 directed automatic allocation, U1 
must be 0; U2 must be i; and U6, U7, and/or U8 can be 
set to 1. 


Note: For a 5444 directed automatic allocate, F1 is always 
considered available for automatic allocation of the work 
file. If U6, U7, and U8 are all set to 0, then only F7 is 
considered for automatic allocation of the work file. 


When requesting a 5445/3340 directed automatic alloca- 
tion, U1 and U2 must be set at 1 and at least one of U5, 
U6, U7, and U8 must be set to 1. 


For example, if you want to direct automatic allocation of 
the work file to D1 and D2, the SWITCH statement would 
be: 


// SWITCH 11001100 


To direct automatic allocation to R1 and F1, the SWITCH 
statement would be: 


// SWITCH 01000100 


The SWITCH statement must be included after the LOAD 
or CALL statement and before the RUN statement. 


Directed automatic allocate does not ensure that space is 
available on the desired drives; it only directs disk sort 
requests for work space to these drives. 


The size of the work space depends on the number of input 
records and the size of the record through the intermediate 
passes. Because space allocation occurs prior to sort 
generation, estimates of the size of the work files are not 
known when the space is allocated. Therefore, when 
automatic allocate is used, it is quite possible that more 
space will be allocated than is necessary. 


If the units indicated on the SWITCH statement for a 
5445/3340 directed automatic allocate are not available, 
automatic allocation takes place on all available 5444 
packs. 


lf the directed automatic work file allocation is used for 
a job, an appropriate SWITCH OCL statement must be 
included with the disk sort OCL statements. It is the 
presence of a SWITCH OCL statement that determines 

if directed allocation is used. If there is no SWITCH OCL 
OCL statement, the external indicators are not tested. 
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When drive 3 (or 4) is specified for a 3344, all main data 
areas on that drive will be searched for space. For example, 
if no FILE statement is present and if the SWITCH 
statement is // SWITCH 11XX0010, disk sort looks for 
work space only on drive 3. D311 is searched first, then 
D32, then D33, and finally D34. 


If two or more drives are specified, the search for work 
space alternates. For example, if no FILE statement 

is present and if the SWITCH statement is 

// SWITCH 11XX0110, disk sort looks for work space 

on drive 2 and drive 3. The highest numbered drive, D3 
in this example, is searched first. If space for one scratch 
area (even a single track) is found on D31, then D2 is 
searched, followed by D31 again, and then D32, D33, and 
D34 in that order. 


Output File 

The output file contains the sorted file. The disk file can 
have sequential organization only. Output of the program 
is in one of three formats: 

@ Tags or addrout 

@ Tag along 


e@ Summary tag along 
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The file statement name must be OUTPUT. The LABEL 
keyword can be used to identify the actual file being used. 


if the output file exists before the sort (it is old), it cannot 
have permanent status since you cannot write into a perm- 
anent file, However, if the output file is built during the 
sort, it can have permanent or temporary status. 


The output file may be multivolume (online or offline). 
However, for SORTA jobs, when the input file is processed, 
the sorted addrout file must be online. 


Deferred mounting of the output file is allowed (notice that 
this does not refer to the system OCL DEFER parameter). 
This means that the output file does not have to be online 
prior to running disk sort. The output file specified in the 
FILE statement may be old or new. 


One use of deferred output mounting is to use the same re- 
movable unit(s) for both the input and output files, but 
with the input and output files on different packs. In this 
case, the shared removable units may not be used for the 
work file. For example: 


























In this case, pack AAAAAA must be mounted on R11 prior 
to running disk sort. The mounting of pack BBBBBB on 

R1 is deferred until later. R1 may not be used for the work 
file. 


Disk so: t defaults to rewinding and unloading tape files. 


Variable tength blocks are not allowed by disk sort tape 
1/O; the job ends if they are encountered. 


Note: In the output file, the order of records having dupli- 
cate control fields is unpredictable. This does not imply 
that the output is incorrect, however, since the control 
fields were in order. 
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7-Track Tape Considerations 


If nonstandard and unlabeled tapes are used, extreme care 
must be taken when creating a file using converter, trans- 
lator, and parity parameters. Since no labels are given with 
block and record sizes on this type of tape, identical FILE 
statements are necessary each time the 7-track tape is used 
as input for a job. If an error does occur, disk sort cannot 
recognize the error. No diagnostic is given. 


If standard labeled tapes are used, identical FILE statements 
are still necessary each time the same 7-track tape is used 

as input for another job. Since there are labels giving block 
and record sizes, disk sort can diagnose errors if identical 
FILE statements are not given. 


If 7-track tape is used for either input or output, the con- 
verter or translator must be used. Refer to the /BM 
System/3 Models 8, 10, 12, and 15 Components Reference 
Manual, GA21-9236, for a discussion of the converter and 
the translator. 
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The translator cannot be used if output is 7-track tape and 
packed data or summary data specifications are used. 


If input is 7-track tape with the translator on, then include 
omit, and field specifications with packed data are not 
allowed. 


’ 


If SORTA (addrout) sort is specified, output cannot be 
7-track tape. 


9-Track Tape Considerations 


A terminal error occurs if the tape file is ASCII and 
ASCII-YES is not specified for both the input file and the 
output file. 


If the output for a SORTA (addrout) sort is to be on tape 
and ASCH translate has been specified, a terminal error is 
generated and the sort job ends. 


For tape output from an addrout sort, the logical record 
length (RECL-on file statement) must be 18 positions. 
Restrictions on the Use of Multifile Tapes (Model 15) 


You must adhere to the following restrictions when using 
multifile tape volumes: 


1. All files in the volume musi be labeled in the same 
manner; that is, ail must be standard labeled files or 
all must be unlabeled files. 


2. All files in the volume must be recorded in the same 
density. 
3. All files in the volume must be recorded in the same 


mode (translate, convert, or parity). 


4. If the last file on a multifile reel is continued on a 


subsequent reel, the two reels constitute an aggregate. 


The restrictions in 1-3 apply to all volumes of the 
aggregate. In addition, all volumes of the aggregate 
must be either 7- or 9-track (7-track and 9-track reels 
may not be mixed in the same aggregate). 


5. Standard labeled 7-track tapes, if prepositioned, 
should be prepositioned to a point just before a 
HDR1 record. Otherwise, tape data checks or run- 
away may occur. 


Refer to the /BM System/3 Model 15 System Control Pro- 
gramming Reference Manual, GC21-5077 and System/3 
Control Programming Concepts and Reference Manual, 
GC21-5162, for discussions of tape multifile volumes. 
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How to Supply OCL Statements for the Model 6 


Installations without an Online Data Recorder or a 3741 
Data Station: tf your installation does not have an online 
data recorder or a 3741 Data Station, you will use conversa- 
tional OCL to give the system the information it needs to 
run the disk sort program. 


Appendix A summarizes: 


@ Which OCL cycle to use (depending on the type of sort 
you want to do) 


@ How to respond to the keywords in each cycle 


Installations with an Online Data Recorder or 3741 Data 
Station: \f your installation has (1) an online data recorder 
(IBM 5496 Data Recorder or IBM 129 Data Recorder), (2) 
a directly attached 3741 Data Station, or (3) a directly 
attached 3741 Programmable Work Station, you can also 
supply OCL statements on 96-column punched cards, 80- 
column punched cards, or 96-byte diskette records. 


The /BM System/3 Model 6 Operation Control Language 
and Disk Utility Programs Reference Manual, GC21-7516, 
explains how to code OCL statements on cards. To supply 
OCL statements on cards, you must establish the data 
recorder as the OCL input device. Instructions on how to 
do this are contained in the /BM System/3 Model 6 Oper- 
ator’s Guide, GC21-7501. Tosupply OCL statements from 
a diskette, refer to the /BM System/3 3741 Reference 
Manual, GC21-5113. 


With or without an online data recorder, OCL statements 
and error messages wil! be printed out on whatever output 
device you specify in your LOG statement at IPL. (See the 
/BM System/3 Model 6 Operator’s Guide, GC21-7501, for 
detailed discussion of the IPL procedure.) 


How to Supply OCL Statements for the Model 10 


You can supply OCL statements via the device you select 
as the system reader (the console keyboard, 1442, MFCU1, 
MFCU2, or 3741). For a discussion of selecting the system 
reader, see the /BM System/3 Model 10 Disk System Oper- 
ator’s Guide, GC21-7508. 


To supply OCL statements from the diskette, refer to the 
1BM System/3 3741 Reference Manual, GC21-5113. 


How to Supply OCL Statements for the Model 12 


You can supply OCL statements via the device you select 
as the system reader (the console keyboard, 1442, MFCU1, 
MFCU2, or 3471). For a discussion of selecting the system 
reader, see the /BM System/3 Model 12 Operator’s Guide, 
GC21-5144. 


To supply OCL statements from the diskette, refer to the 
IBM System/3 3741 Reference Manual, GC21-5113. 


How to Supply OCL Statements for the Model 15 


You can supply OCL statements via the device you select 
as the system reader (1442, 2501, MFCU1, MFCU2, con- 
sole, MFCM1, MFCM2, or 3741). For a discussion of selec- 
ting the system reader, see the /BM System/3 Model 15 
Operator’s Guide, GC21-5075. 


TIMING CONSIDERATIONS 
The time it takes to sort a file depends on these factors: 
1. How much main storage you assign for the program’s 


use. The larger the main storage allocation, the less 
time it takes to run a sort job. 


2. Number of records you want to sort. The greater 
the number of records, the longer it takes to sort 
them. 

3. Size of the records. The larger the records, the longer 


it takes to sort them. 


4. Number of sequence specifications in the sort program. 


The greater the number of sequence specifications, 
the longer it takes to run the sort job. 


5. Whether you are using an alternate collating sequence. 


An alternate collating sequence can increase the time 
it takes to run the sort job. 


6. Where the files are located on the disk. !f the disk 


arm has to make many extra movements, the sort 
time will increase. This factor is especially significant 
for jobs with multivolume files. 


7. Order of the control fields in the input record. 
8. Whether or not automatic work file allocation is 
being used. 


9. Whether you are using the nonverify option. By using 


this option, data written on the work file will not be 
verified. The result is a decrease in the time it takes 
to sort a job. 


Each of these factors is discussed in detail in Appendix D 
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PROGRAMMING CONSIDERATIONS 





i Addrout Sorts (SORTA) 





Tag Along Sorts (SORTR, SORTRS) 








Core Storag 
Requirements 
















Less than tag along sort More than addrout sort 











Work File Size 





Sorted Output 



















he PY 

Need only be big enough 
to hoid control fields and 
relative record numbers! 


Must be big enough to hold entire 
file 





Relative record numbers 
only 






Sorted output records can contain 
data only, control fields onty, or 
both data and control fields 























Input File 


+ 

















Input file should not be 
overlaid by output file 


Input file can be overlaid by output 
file? (the input file can double as 
the output file) 











Job Time 





Usually longer 


i 
[ Usually shorter 
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' This tets you sort large files without changing packs. 


2 The space for the output file may be the same as that of the input file. In other words, 
the output file may overlay the input file. However, good programming practice is to 
never overlay a file you want to sort, unless you have first made a backup copy of the 
file. When using the input file as the output file, you must specify the same space 

(number of records or tracks), location, and label. 










SPECIFICATIONS FOR TAG ALONG SORT (SORTR) 


The shaded columns are the ones you must consider for a 
tag along sort Job. 






Control freld and 
sequence information 


Type of sort 


Page sequence 








Heaton Business Marhises Corporation 


SEQUENCE SPECIFICATIONS 





Header 
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Job Description 











Comments 
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Definition of normal control fields 
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Definition of data fields 
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SPECIFICATIONS FOR ADDROUT SORT (SORTA) 


The shaded columns are the ones you must consider for an 
addrout sort job. 


Control field and 
sequence information 


Type of sort 


Page sequence 











Meensatie cal Stes Way b 


SEQUENCE SPECIFICATIONS 








Paneer __ ___ Header 








MATCH 





Card Mateh 







[cco 





if tail Largest san 
| | bee con Job Descrentiag 
Jamin | [REECE rcamartt 
H Py peeks La agths fy Aa . 
ORT aS PRecised Type la 
| Ti oF: 
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Factor t Comments 
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Location 
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SPECIFICATIONS FOR SUMMARY SORT (SORTRS) 


The shaded columns are the ones you must consider for a 
summary sort job. 


Control field and 


Type of sort sequence information 
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Chapter 3. Header Specifications 


Header specifications tell disk sort: 


@ What type of 


or summary tag along) 


@ What, if any, system information you want printed (to 
ad you obetro: checking) 
sort you want 10 dG wea. 


wh 


Remember, use only one header line for each sort job. 


@ How you want to format (arrange) the sortes * -e 


COLUMN SUMMARY 


Columns 
that must be 
filled in 


Columns that 
must be filled 
in for a tag { 
along sort 
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Entries Explanation 


i Page number 
| Header iine number 


| Header tine identitication 


















| Summary tag aiong sort job 


; Longest cuntroi t.eid used in sorting the records 





Records in sorted tile to be in ascending order by control fields 
Records in sorted file to be in descending order by control tields 
Not used in disk sort jobs 


Use standara System/3 collating sequence tn compare operations 


Use an aiternate System/3 coilating sequence in compare operations 
ALTSEQ statements wii defiie ine collating sequence to be used 

0 or biank Print: 

Sequence specification tines 

Diagnostic messages 

Program-status messages 


Action messages 

Print: 
Program-status messages 
Action messayes 

Print action messayes oniy 


Print nothing 
















Keep control fields in output records in tag along sort jobs 





Drop control tields from output records in tag along sort jobs 


| Length of output records in tay afong sort jobs 





| Not used wi diox sort 1090S 

| Data written on the work file wili not be veritied 
Semeere eaters | Reserved § ssysiem.use 
i Storage size 'c exacute the obiect modute in muitiples of 
2k (Mode! 




















Reserved § 





i indicates t. 
» iModet 75 4 


ncaa 











CPIDisk Suit sive 











COLUMN DESCRIPTIONS 
Columns 1-2 (Page Number) and 3-5 (Line Number) 


Page number (columns 1-2) and line number (columns 3-5) 
form a 5-digit sequence number. As the program reads 
sequence specifications, it cnecks the sequence numbers to 
make sure they are not in descending order. If the numbers 
are in descending order (for example, if page 02 specifica- 
tions come before page 01 specifications) and specifications 
are being printed, the program will print a warning next to 
the line. After a warning is issued (the letter S) the program 
continues reading the rest of the specification lines and then 
halts and waits for further instructions from the operator. 
The operator can either continue or end the job. 


Because page number applies to all lines on a page, columns 
1-2 appear only once, in the upper right corner of the page. 
You number the pages in ascending order. 

The line number of tie header line is always 000 and is pre- 
printed on the coding sheet. 


Column 6 (Line Type) 


Column 6 of the header line contains a preprinted H to 
identify the line. 


Columns 7-12 (Job) 
Columns 7-12 tell the program what type of sort job you 


want to do. SORTA means addrout sort. SORTR means 
tag along sort. SORTRS means summary tag along sort. 


Header Specifications 
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Columns 13-17 [Largest Sum (in Bytes) of Control Field 
Lengths for Any Record Type] 


To calculate this entry: 


1. Add together the lengths of the contro! fields (N, O, 
or F in column 7 of field specifications) for each type 
of input record. 


2. Piace the /argest of these totals in columns 13-17. 
(Your entry must not exceed 256.) 


For more information, see Control Fields under Column 7, 
Field Description Specifications. 


The following specification sheet contains an example 
of the calculation for the entry in columns 13-17. 
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Column 18 (Ascending or Descending Sequence) 


Control fields control the sequence of records in the sorted 
output file. Your column 18 entry indicates the sequence 
in which you want the records sorted: 





Col. 18 Entry 





Sequence 
















A Ascending sequence 
by control field 
D Descending sequence 





by control field 






Column 26 (Collating Sequence) 


Column 26 specifies the collating sequence you want disk 
sort to use in compare operations. (Compare operations 
determine whether one character is equal to, greater than, 
or less than another character.) 


Standard Collating Sequence 


A blank in column 26 tells the system to use the standard 
System/3 collating sequence. There are slight variations in 
the standard collating sequence depending on whether you 
are using both the zone and digit portions of the characters 
in your records, the zone portions only, or the digit portions 
only. Appendix C shows the complete collating sequence 
for each situation. 


Alternate Collating Sequence 


An S$ in column 26 tells the program you want to cnange 
the standard collating sequence. To do this you must 
supply ALTSEQ statements immediately following the 
header specifications (Appendix C tells you how to code 
ALTSEQ statements). 


Do not use a packed or unpacked factor 1 in an include or 
omit record type specification (P or Uin column 8) if you 
specify an alternate collating sequence. 


Note: Generally, the only users of alternate collating 
sequences are European firms that want to insert special 
alphabetic characters (such as the German a, 0, and Wand 
the Spanish n) into the standard System/3 collating sequence 
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Column 27 (Print Option) 
The disk sort program can print: 
@ Sequence specification lines 


@ Diagnostic messages, for aiiy errors in sequence 
specifications 


@ Program-status messages, to identify various stages of the 
job for you 


@ Action messages (accompanied by a halt), to identify 
circumstances requiring attention before you can 
continue the job 


Column 27 indicates which of the preceding information 
you want the program to print during a job: 








Col. 27 Entry = Program Prints 








0 or blank Sequence specifications 
Diagnostic messages 
Program-status messages 


Action messages 











Program-status messages 
Action messages 













2 Action messages only 


3 None of above 


Column 28 (Output Option for Tag Along Sorts) 








Column 28 applies to tag along sort (SORTR or SORTRS) 
jobs only. It indicates whether or not you want the program 
to drop control fields from output records after the records 
are sorted. A blank in column 28 means keep tie control 
fields; X means drop tnem. 


Considerations for Dropping Control Fields 


Control fields are normally dropped if you are using 
opposite control fields or an alternate collating sequence. 

In these two cases, the program changes the control infor- 
mation (during the sorting process) in such a way that it will 
be meaningless to you. 


Using Fields as Both Control and Data Fields 


If you are using opposite control fields or an alternate 
collating sequence and you want to keep the control infor- 
mation in a meaningful form in the output records, describe 
the fields twice: once as control fields and once as data 
fields. Data fields are not involved in the sorting process 
and are not changed by the program. 
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Columns 29-32 (Output Record Length for Tag Along Sorts) 


Columns 29-32 apply to tag along sort (SORTR or SORTRS) 
jobs only. The entry in these columns tells the program the 
length of records in the final sorted file. 


If you do not drop control fields, the length includes both 
control and data fields. If you drop control fields, the 
length includes only data fields. In either case, the sum of 
the control fields and the data fields must not exceed the 
maximum work record length limits listed in Appendix E. 


Calculating Output Record Length When Dropping Control 
Fields 


For each type of record, total the lengtis of all the data 
fields you are including in the job. Select the largest total 
and enter this number in columns 29-32, 


Calculating Output Record Length When Not Dropping 
Control Fields 


For each type of record, total the lengths of the data 
fields. Select the largest total, add this total to the number 
in columns 13-17, and put the sum in columns 29-32. (The 
sum must not exceed the maximum work record length 
limits listed in Appendix E.) 


24.2 


Column 34 (Nonverify Option) 


Column 34 applies to all disk sort runs except those that 
contain a work file statement for a 3340 disk file on Model 
15 only. When a 3340 file (D1, D2, D3, D4) on Model 15 
only is used as the work file, the verify option is taken from 
the OCL FILE statement and column 34 of the sort 

header record is ignored. Otherwise, if an N is placed in this 
column of the disk sort header statement, none of the data 
written on the work file will be verified. This results in an 
improvement in performance (see Appendix D. Timing 
Considerations). 


Note. \f you use the nonverify option when your output 
file is to overlay the input file, the input file might be 
destroyed if a terminal error occurs before end of job. There- 
fore, if the input file cannot be easily recreated, you should 
have a duplicate copy for backup. The input file can be 
destroyed under the same circumstances whether the non- 
verify option is used or not. However, the chance is greater 
when using the nonverify option. 


Columns 37-38 (Storage Size) — Modei 15 CCP/Disk Se:t 
5704-SM7 and 5799-ATH 


You designate the required storage size, it multinies at PR. 


from 12 to 48 for execution of the obiect module. The 
default is 12. 


Column 39 (Record Length Indicator) ~ CCP/Disk Sort 
Oniy 
Models 4,8, 10,12, 154, 15B. and 18C 


R This code indieates that a remoret in 





columns 40-43 


Model 15 with Program Number 8704-S04? Only 


Cc indicates task chain and that a recora iengtt exists 
in columns 40-43. 


T Indicates Release and Task Chain operation. A 
record length exists in columns 40-43. For a dis 
cussion of the CCP Release and Task Chain operation 
program, see /BM System/3 Communications Contre! 
Programmer’s Reference Manual, GC21-7579 


R Indicates that a record length exists in columns 40 43. 


Columns 40-43 (Record Length) — CCP/Disk Sort Only 


You designate the input file record length, right justified, 
with or without leading zeros. 


Note: |f a user comment currenily exists, you must fit i 
into columns 44-72, or remove it 


Columns 40-72 (Job Description) or Columns 44-72 (Job 
Description — CCP/Disk Sort Only) 


This field is for your comments. You can use any System/3 
characters you want in these columns. {tf the pregram 
prints specification lines (the column 27 entry is a zero 
or blank), the comments you include in these colurnns 
are printed. Comments have no effect on the program. 
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Columns 75-80 (Program Identification/Program Name) 
Disk Set 


For disk sart, the program identification is only used for 
user reterence, {t has no program function. 


CCP/Disk Sort 


For COPSGixk Sort, the program name does provide a pro- 
gram iu This fteld contains the name given to the 
object proaram. This is the name that you enter from the 
i > invoke the sort. The entry can be: 


eoT.ON 





1 A, saiict arogram name. The first character must be 
aichabetic. but cannot be a #, $, or @ character. 
Tes cemaiiing characters must be alphameric with 





mibedeiead blanks or special characters. 


Biark 
Biar 


The defauit is SRTOBJ. 


No 


mio At 


Note: ALL. and SYSTEM are reserved names and 
must tof he used as program names. 


Chapter 4. Record Type Specifications 


Record type specifications tell disk sort which of the 

records in a file you want to sort. Remember, if you want 

to sort all the records in a file, and they all have the same 
format, you do not have to fill out record type specifications. 


COLUMN SUMMARY 






Columns Explanation 
eee 


1-2 00-99 Page number 


01x-06x Line number (you can leave column 5 blank, or enter any 
value to keep the specifications in ascending order) 
Include line 
And line (these specifications continue the definition of the 
record described on the previous line) 
Or line (these specifications define a different type of record 
than the one on the previous line) 
Blank First line of a set of | or O record type lines 
Use both zone and digit portions of characters 
Use only zone portion of 1-character field 


Use only digit portion of characters 
Signed packed decimal data 


Signed unpacked decimal data 


9-12 1-4096 The input record position in which the factor 1 field begins 
(blank if field is only one position long) 
13-16 1-4096 The input record position in which the factor 1 field ends 


Factor 1 must equal factor 2 
NE Factor 1 must not equal factor 2 

LT Factor 1 must be less than factor 2 
Factor 1 must be greater than factor 2 











~ w 
ol 

















Columns that must 
be filled in 
























Factor 1 must be less than or equal to factor 2 
Factor 1 must be greater than or equal to factor 2 













Factor 2 is a constant 














F Factor 2 is another field in the same input record 


20-23 1-4096 The input record position in which the factor 2 field begins 
(blank if field is only one position tong) 


24-27 1-4096 The input record position in which the factor 2 field ends 


20-39 Any System/3 The factor 2 constant 
characters 
oe 






















Any System/3 
characters 








COLUMN DESCRIPTIONS 
Columns 1-2 (Page Number) and 3-5 (Line Number) 


Page number (columns 1-2) and line number (columns 3-5) 
form a 5-digit sequence number. As the program reads 
sequence specifications, it checks the sequence numbers to 
make sure they are not in descending order. If the numbers 
are in descending order (for example, if page 02 specifica- 
tions come before page 01 specifications) and specifications 
are being printed, the program will print a warning (the letter 
S) next to the line (the S stands for sequence error). After a 
warning is issued, the program continues reading the rest of 
the specification lines, then halts and waits for further in- 
structions from the operator. The operator can either con- 
tinue or end the job. 


Because page number applies to all lines on a Page, columns 
1-2 appear only once, in the upper right corner of the page. 
Number the pages in ascending order. 


Record type line numbers are 01 through 06. The numbers 
in columns 3 and 4 are preprinted on the coding sheet. You 
can leave column 5 blank or enter any value to keep your 
specifications in ascending order. !f you have more than 
six record type lines, use another coding sheet and start at 
line 01. 


Out-of-Sequence Lines 


Use column 5 when you want to insert a specification with- 
out renumbering the other specifications. For example, to 
insert a specification line between lines 01010 and 01020, 
you can number it 01015, code it, and then continue to fill 
out the rest of the sheet. 


Be sure any lines that are out of sequence on your coding 
sheet are clearly marked. You can do this by writing a note 
in the margin of the page with an arrow pointing to where 
the insert belongs (see Sample Job 3). 


Column 6 (Line Type} 


Column 6 identifies the type of record type line. An lin 
this column stands for either an include or an include-all 
line; an O stands for an omit line. 


Include Line 


Include lines identify records you want the program to sort 
by describing particular record fields. 


Include-All Line 


Include-all is a special form of include line; it has no record 
description (columns 7-39 are blank). It tells the program 
to sort all the records that have not been described by any 
preceding incl:'de or omit line for the job. Records referred 
to in this manner must have the same field specifications. 


Note: Only one include-all line can be used per job. If 
used, it must be the last record type line for that job. 


Summary: Include Lines 


If the type of sort job you are running requires you to code 
record type lines, you must use include or include-all lines 
to describe the records you want sorted. Records not 
described in include tines will not be sorted. 


Omit Line 


Omit lines identify records you do not want the program 
to sort. Omit lines are not required but can be helpful 
when you have many types of records you want the pro- 
gram to use and just a few you want omitted. Omit lines 
are normally followed by an include-all line, telling the pro- 
gram to sort all the records that are not described by omit 
lines. 


Record Type Specifications 27 


Sets Here are four rules to remember when you are using 
include and omit sets: 
There are two types of sets: include sets and omit sets. An 


include set identifies one or more record types you want to 1. All include sets must end with a field description line. 
include in your sort job. An omit set identifies one or more 
record types you want to omit from your sort job. (The 2. Omit sets never have field description lines. 
records in any record type always have at least one charac- 
teristic in common — such as an X in position 5.) 3: Every omit set must be followed by an include set. 
4. The last set must be an include set. 


There are five types of include sets and three types of omit 
sets. 


Explanation 


Header line, field description line, or omit tine 


INCLUDE SETS! 





Record type lines: 
Include New record type indicated by blank in column 7. 
AND lines Lines that describe the same record type (as the previous line) have an 
A incolumn 7. 


Field description tine(s) 
Header line, field description line, or omit line 


Include Record type lines: 
OR lines New record type indicated by blank in column 7. 
Lines that describe different record types {than the previous line) have 
an O in column 7. 


Field description line(s) 
Header line, field description line, or omit line 


Record type lines: 
Include New record type indicated by blank in column 7. 
AND and This line designates a record type which is different than but has the 
OR lines same field description lines as the record type described in the previous 
line(s). 

This line continues the same record type of a previous line or lines. This 
record type can be continued (IA), or another record type can be 
started (10), provided all record types have the same field description 
lines. Record types with different field tines would have to start a new 
include set. 


Fietd description line(s) for either A or O record types 





Include Header line 
onty one 


record 
type Field description line(s) 


No record type lines 


(implied 
inctude- 
all) 


Header line, field description line, or omit line 


Include- Record type line: Tells program to sort all the records that have not been 


all described by any preceding include and omit lines. Records referred to in 


this manner must have identical field specifications. 


Field description line(s) 





J Every include set must end with field description lines. An include set can be followed by another include set, an 
omit set, or // END. 


Note: Records not described in include sets will not be sorted. 
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OMIT SETS! 


Omit AND lines 


Header line or field description line (last line of include set) 
New record type indicated by blank in 





























(one record type) column 7. Record 
Lines that describe the same record type Type 
(as the previous tine} have an A in Lines 





column 7. 












Header line or field description line (last line of include set) 
New record type indicated by blank in 







Omit OR lines 






(different record types) column 7. Record 
Lines that describe different record Type 
types (than the previous line) have Lines 






an Oincolumn 7. 






Header line or field description fine (last line of include set) 
New record type indicated by blank in 
column 7. 
Lines that describe the same record type 
(as the previous line) have an A in 
column 7. 
Lines that describe different record types 
(than the previous lines) have an O in 
column 7. 




















Omit AND and OR lines 
(different record types) 










' There are no field description lines in omit sets. Each omit set must be followed by an include or an include-all set. 


Guide to Using Include and Omit Sets 


When to Use Include Sets: \f you want to sort only a few 
records ina file, use an include set for each type of record 
you want to sort. 


When to Use Omit Sets: \f you want to sort all but a few 
records in a file, use omit sets followed by either an include 
set for each type of record you want to sort or an include- 
all set. 


Mixing Include and Omit Sets: You can mix include and 
omit sets; but because disk sort processes the sets in the 
order they are coded, you must be particularly careful when 
you do this. For example, if you wanted to omit all records 
with a 2 in position 10 but sort those with a 2 in positions 
10 and 15, you would have to specify the include set before 
the omit set. If you specified the omit set first, all the 
records you want sorted would be omitted from the job. 
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Column 7 (Continuation or Comments) 


Column 7 indicates the line’s relationship to the preceding 
line. 


Col. 7 Entry Explanation 





This line is the first of a set of include 
or omit lines. (The type of set is indi- 
cated by the column 6 entry: | for 
include - O for omit.) 





The line is a continuation of the pre- 
ceding line. The A stands for AND. 





The line applies to a different record 
type than the preceding line, but the 
control field specifications tor both 
are the same. The O stands tor OR. 





This line is a comment line. Comment 
lines do not affect the program in any 
way. Their only purpose is to help you 
remember what you were doing ina 
certain section of coding. (Comments 
are printed only if column 27 of the 
header line contains @ zero or a blank.) 








Column 8 (C/Z/D/P/U) 


Your column 8 entry tells disk sort how to interpret data in 
the factor 1 and factor 2 fields during compare operations. 
When the fields contain alphameric data, a C, Z, or D entry 
tells disk sort what portions of the characters to use. When 
the fields contain signed numeric data, a P or U entry tells 
disk sort whether the data is packed or unpacked. 


Maximum 
Col. 8 Entry Compare Operations Field Length! 








Use both zone and digit 256 characters 
portions of the characters 














Alphameric. . Use only the zone portion 1 character 
< 
data of the character 
Use only the digit portion 16 characters 
of the characters 
Signed ( Numeric data is packed 8 bytes or 16 digits 
DHMerte ‘ Numeric daia is unpacked 16 digits 
data | 





' For both factor 1 and factor 2 fields 


2.Do not use a packed o: unpacked factor 1 in an include or omit record 
type specification (P or U in column 8) if you specify an alternate 
collating sequence (S in column 26 of header line). 
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Significance of the Column 8 Entry 


You use record type specifications to tell the disk sort pro- 
gram which records you want to sort. You do this by in- 
structing disk sort to test each record by comparing the 
data in a specific field against a constant or against the 
data in another field in the same record. The data you are 
comparing is the factor 1 field; the data you are comparing 
it against (a constant or the contents of another field in the 
same record) is the factor 2 field. The result of the com- 
parisons determines whether or not that record will be 
sorted. Since the disk sort program sees your data as noth- 
ing more than a series of electronic bits, you must tell the 
program how to interpret the data: 


@ \f the data is alphameric, what part of the characters to 
use 


@ {tf the data is signed numeric, whether it is in packed or 
unpacked format 


Interpreting System/3 Data 


Each System/3 EBCDIC character has two parts: a zone 
portion and a digit portion. Some characters have identical 
zone portions; some have identical digit portions. No two 
characters have identical zone and digit portions. 
















How It Looks inside the Computer 






System/3 Character, -/-————— 
| Zone Portion 
ha 0101 1100 
1 1111 
2 1111 
3 1111 
K 1101 
- 0110 
P 1101 





blank 0100 
0 1111 


'Notice that the digit portion of a zero and blank look 
exectly the same. 


If you instruct disk sort to use only the digit portions of 
characters (by putting a D in column 8), characters with 
identical digit portions will look alike and compare as equal. 
Likewise, if you instruct disk sort to use only the zone 
portion of characters (by putting a Z in column 8) charac- 
ters with identical zone portions will look alike and com- 
pare as equal. Thus your column 8 entry is critical in ensur- 
ing that your compare operations produce the results you 
intend. 


Suppose, for example, that you want only those records 
with a 2 in column 15 and a 2 in column 50. If you put 

a D in column 8, you will get the records you want: the 
ones with a 2 in column 15 and a 2 in column 50. But you 
will also get a lot of records you do not want (several char- 
acters have the same digit portion as a2). To get on/y the 
records with a 2 in column 15 and a 2 in column 50 you 
would have to put a C in column 8. The C tells disk sort 
to use both the zone and digit portions of characters in its 
compare operations, and no other System/3 character has 
tne same zone and digit portion as a 2. 


Note: The leftmost bit of each byte of ASCII data that is 
not converted to EBCDIC is set to zeros. 
Alphameric Data 


When the factor 1 and factor 2 fields contain alphameric 
data, the column 8 entry must specify one of the following: 


@ The zone and digit portions of the characters (C entry} 
@ Only the zone portion of the character (Z entry) 


@ Only the digit portion of the character (D entry) 
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Numeric Data 


When the factor 1 and factor 2 fields contain numeric data, 
the column 8 entry must answer two questions: 























1. Are the numbers signed or unsigned? 
2. Are the numbers packed or unpacked? 
Format of Col. 8 
Numeric Data Entry Definition Considerations ! 
r + = 

Unsigned D Number does Absolute values of the numbers are 

not have a sign. used. If a number has a sign, it is 
ignored. For example, -3 would be 
considered equal to +3. 
Packed P Number always The sign controls the comparison. 

carries a sign. For example, ~3 is less than 0 and 
When the number | +5 is more than -6. 
is placed in core 
storage it has a 
digit portion only. 

Signed : : 1 

Unpacked U Number aiways The sign controls the comparison. 

carries a sign. For example, ~-3 is less than 0 and 
When the number | +5 is more than -6. 
is placed in core 
storage, it has 
both a zone and 
digit portion 








! Before comparing numeric data, disk sort converts any leading blanks to zeros. 


Signed Numbers: Signed numbers can be either positive or 
negative. The sign of a number is indicated by a 4-bit binary 
code. 


Packed and Unpacked Numbers: An unpacked digit takes 
up eight bits; a packed digit takes up four bits. 



































Binary Code Packed Digits Unpacked Digits 
1111! Binary Form Binary Form 
1010 
1100 0 
1110 1 
1101 2 2 
1011 3 3 
4 4 
' Standard form. Disk sort accepts 5 5 
all four forms of the plus sign. Be- 6 6 
fore sorting the file, however, the 
program converts all plus signs to 7 7 
the standard form. if you print a 8 8 
core dump, the plus sign witi al- 9 9 
ways be expressed as a hex F. a 
Digit Portion Only Zone Digit 
Portion Portion 
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In unpacked numbers, the 4-bit sign code replaces the zone 
portion of the last digit in the number. In packed numbers 
the sign code takes up the last four bits of the number. 


Positive 


Unpacked 


Negative 


Positive 


Packed 


Negative 








2 


—A— 


# a - 
1,1,1,1;00,1 011111,0000]111 1,01 
PM I 





Zone Digit Zone Digit Zone 


Positive zone 


2 (6) : 
{1,1,1,1,0,0,7/0]1,1,1,1,0,0,.0,0]1,1,1,1,0.1 


Zone Digit Zone Digit Zone Di 


Digit |Digit Digit 


0 4 


cae a, 2 . 
[0.009001 00000j01 Oo 06 





Digit Digit Digit Digit Digit 
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Columns 9-16 (Factor 1 Location) 


Factor } fields identify your records. (If all your inventory 
records contain an fri column 2, for example, column 2 
isa factor 1 teic.} Bisk sort identifies records you want 
sorted by compartiag factor 7 fields against constants or 


against other ‘ivids in te same record. Columns 9-16 identi- 


fy the loca: urs of the factor 1 fields in tne records. If there 
is More then ae tuctaur | field for the records you are 
describing, you mest 


@ Describe each field in a separate record type line. 


@ Put an Ain coiumn 7 of every line (except the first) to 
tell disk sort that aii the lines apply to the same record 
type. 


Columns 9-1? (from) identify where the factor 1 field be- 
gins in the record. Cuolurnns 13-16 (to) identify where the 
field ends. 


Length of Factor | Fields 


A factor 1 field can contain anywhere from 1 to 256 char- 
acters. No factor 1 field, however, can be longer than the 
length of tne records you are working with. (For example, 
when you ars working with 96-column records, the longest 
possible factor 1 field’ you can have is a 96-character field.) 
The length of tactor 1 fields is also controlled by the col- 
umn 8 entry. 


Col. 8 
Entry 













Maximum Factor 1 
Field Length 





haracters! 





| 1 character 
| 
t 


16 characters 





} § characters? 


pee ee Sa a 


i TG characters 













'wWien ‘actur 2.s a constant, the length of 
se factor 7 frulci musi not exceed 20 







Haractrers see Cof/unins 20-39 for more 


TUE OP OTTER! 
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Coding Rules 


Entries must be right-justified: the from entry must end «4 
column 12; the to entry must end in column 16. 


To describe factor 1 fields that are only one character 

jong, leave columns 9-12 (from) blank and enter the nusmber 
of the record position that contains the character i col- 
umns 13-16 (to). 


For example, here is the entry you would make to describe 
the position of a factor 1 field which consists of an iin 
column 2. 


Record Type 








sh “5 7 | 
| 

















Columns 17-18 (Relation) 


The program identifies records you wait to sort by compat 
ing the factor 1 field (columns 9-16) against either a constant 
(columns 20-39) or another field (columns 20-27) in the 
same record. The constant or other field is called factor ?. 
Columns 17-18 tell the program what the results of tie 
comparison must be. (If alternate collating sequence 15 used, 
botn factor 1 and factor 2 are modified before the compan 
son is made.) 

















Meaning i 
Factor 1 must equal factor 2. ie 
ns zs = pa tecectidda 7 Sie a. og peach 

Factor 1 must not equal factor 2. | 
Factor 1 must be less than factor ?. ' 
seinen et cache 

Factor 1 must be greater than factor 2. i 








Factor 1 must be fess than or equal to factor ¢ 





Factor 1 must be greater than or equa! to factor 2 










‘If you want the program to compare zone portions of 


| 
characters (Z in column 8), EO and NE are the onty 
entries you can use. 


Column 19 (Field or Constant) 


The program identifies records you want to sort by com- 
paring the factor 1 field (columns 9-16) with a constant, or 
another field in the same record. The constant or other 

field is called factor 2. Column 19 tells the program whether 
factor 2 is a constant or another field. C in column 19 
means factor 2 is a constant; F means factor 2 is a field. 


When you put a C in column 19, you use columns 20-39 
for the constant. When you put an F in column 19, you 
use columns 20-27 to identify the location of the factor 2 
field in the records. 


Note: The K shown in column 19 on the sequence 
specification sheet is not used for System/3 disk sort. 


Columns 20-27 (Factor 2 Field) 


The factor 2 field must be the same length as the factor 1 
field. It also must be in the same record as the factor 1 field. 


Columns 20-27 are used to record the location of the factor 
2 field. Columns 20-23 (from) identify the starting position 


of the field; columns 24-27 (to) identify where the field ends. 


Note: The keyword parameter shown for columns 20-25 
on the sequence specification sheet is not used for System/3 
disk sort. 


Coding Rules 


Entries must be right-justified: the from entry must end in 
column 23; the to entry must end in column 27. 


To describe fields that are only one character long, leave 
columns 20-23 (from) blank, and enter the number of tne 
record position that contains the character in columns 24-27 
(to). 


Columns 20-39 (Factor 2 Constant) 


When factor 2 is a constant, you use columns 20-39 to write 
in the constant you want to use. The constant can be any 
arrangement of System/3 characters. 


The constant must be the same length as the factor 1 field. 
For example, if you have a 4-position factor 1 field, your 
constant field must take up four positions. If your constant 
is the number 6, you would put the 6 1n column 23, and 
either leave columns 20, 21, and 22 blank or fill them with 
zeros. 


Record Type 
fixie 





Byte 2 ibate Geeta boot Revert 








or 





Record Type 





aa set i 
ha 











lf the factor 1 field contains a packed number, the length 
of the constant (including the sign) must be twice the 
length of the factor 1 field. The reason for this is that fac- 
tor 71 data is in packed form, and the constant you are writ- 
ing in is in unpacked form. 


Alphameric Constants (Column 8 Entry ts C, Z, or DB) 


The constant must be the same length as the factor 1 field 
and must always begin in column 20. 


Numeric Constants (Column 8 Entry is P, U, or D) 


Format: Numeric constants must be right-justified within 
the field length specified in factor 1 (within twice the field 
length if factor 1 is a packed number). For example, assume 
that factor 1 defines a 6-position field in the input record, 
and that factor 2 is tae numeric constant 123. Tu right 
justify the constant within six positions, you would have 
to put the constant in columns 23, 24, and 25. Leading 
zeros are not required. To disk sort, blanks and zeros teak 
the same. In the example above, columns 20-25 could 
contain either 000123 or bbb123 (with b representing a 
blank). 


Signed Constants: \f factor 1 is a packed numbei. ihe iast 
character in tie constant must be its sign (+ or -j. HF factor 
1 is an unpacked number and the constant is a negative: 
number, the last digit in the constant must be a cnaracter 
that indicates both the numeric value of the last digit and 
the negative sign for the entire constant. 
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How the Number Looks inside 


the Computer 


If Last Digit Character that 





in Constant is | You Code Zone Portion! | Digit Portion” 


- (minus code)3 


DOVOZ22° KR 


0000 
0001 
0010 
0011 
0100 
0101 
0110 
0111 
1000 
1001 





'The zone portion indicates the negative sign of the entire number. 


2 The digit portion indicates the numeric value of the last digit in the 


number. 


31 your system input device is a system card device, you can punch 


a zero and minus in the same card column. 


For example, here is the entry you would make to sort 





records which have a packed negative 1 (-1) in positions 
1 and 2, an unpacked negative 24 (-24) in positions 5-8, 


and an unpacked negative 10 (-10) in positions 11-16: 


eos Record Type 












NE Jt Keywvoret tm 


lev g @ ota ol 


Nunaber 


aK 
































| 








Columns 40-72 (Comments) 


Columns 40-72 are for your comments. If you have instruc- 


ted disk sort to print sequence specifications (column 2 
of the header line is either blank or contains a zero) the 


7 


comments will be printed along with your sequence specifi- 
cations. The comments have no effect on the program's 


operation. 


Many programmers like to use columns 40-47 to write the 
names of the records described in the record type specifica- 
tions. This is why columns 40-47 are enclosed in dotted 


lines on the coding sheet. 
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Chapter 5. Field Description Specifications 


Field description specifications tell disk sort how to arrange 
(format) records in the output file. 


COLUMN SUMMARY 






ne ee 











Page number 









Line number (you can leave column 5 blank, or 
enter any value to keep the specifications in 


O7x-14x 







ascending order). 













Field specification line 









Normal control field 





Opposite control field 









Forced control field 













Data field 









Summary data field 






Comment line 
Columns that must 


be filled in for all 
sort jobs 


Signed packed decimal! data 


Signed unpacked decimal data 














Cc Use both zone and digit portions of characters in the 
field 













Use only zone portion of 1-character field 






Use only digit portion of characters in the field 






Force a data character into the data field 


Starting position of field in the record (blank if field 
is one character long) 







End position of field in the record 










Forced conirol fields only (the character you want 
the program to change) 


Any System/3 
character 















Forced control fields only (the character you want 
to substitute) 





Any System/3 


Columns that must be character 
filled in when forced 


control fields are used 













Forced control field line is not a continuation of the 
preceding line 














Forced control field line is a continuation of the pre- 
ceding line 


Any character 
other than 
blank 















20-22 1-16 Summary tag along sort only (overflow field length entry) 


40-72 Any System/3 
characters 





Not used 












Comments 
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COLUMN DESCRIPTION 
Columns 1-2 (Page Number) and 3-5 (Line Number) 


Page number (columns 1-2) and line number (columns 3-5) 
form a 5-digit sequence number. As the program reads 
sequence specifications, it checks the sequence numbers to 
make sure they are not in descending order. If the numbers 
are in descending order (for example, if page 02 specifications 
come before page 01 specifications) and specifications are 
being printed, the program will print a warning next to the 
line. After a warning is issued (the letter S), the program 
reads the rest of the specification lines and then halts and 
waits tor further instructions from the operator. The oper- 
ator can either continue or end the job. 


Because page number applies to all lines on the page, col- 
umns 1-2 appear only once, in the upper right corner of 
the page. Number the pages in ascending order. 


Here is the recommended procedure for field description 
line numbers. Field line numbers are 07 through 14. The 
numbers in columns 3 and 4 are preprinted on the coding 
sheet. You can leave column 5 blank, or enter any value 
to keep your specifications in ascending order. If you have 
more than eight field lines, use another coding sheet and 
start at Ine O07 


Use columi: 5 when you want to insert a specification line 
without renumbering the other lines. For example, to in- 
sert @ specification line between tines 01070 and 01080, 
you can number it 01075, code it, and then continue to fill 
out the rest of the sheet. 


Be sure ary tines that are out of sequence are clearly marked. 
You can do this by writing a note in the margin of the page 
with an arrow pointing to where the insert belongs (see 
Sample Job 3). 


Column 6 {Line Type) 


Colum 6 contains a preprinted F, identifying the line as a 
field fine. For addrout sorts (SORTA), field lines describe 
control fields the program uses to sort record addresses. 
For tag along sorts (SORTR) and summary tag along sorts 
(SORTRS), field lines describe the fields that the program 
uses to create the records in the sorted output file. The 
fields can be either control fields (used to sort the records) 
or actual data fields. In addition, for summary tag along 
sorts, field lines describe the fields that tiie program sum- 
marizes (adds together). 
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Column 7 (Field Type or Comments) 


Your column 7 entry tells disk sort whether you are describ- 
ing a control field, data field, or comment line. If you are 
describing a contro} field, the column 7 entry indicates how 
the field is to be used. See Co/umns 7-8 to find the ways 
you can combine this entry with the column 8 entry. 


Col. 7 Entry Tells Program 








This is a data field! 





This ts acomment line. 





This is anormal control field. Sort this field 
so that the data from the field is in the se- 
quence specified im column 18 of the header 
line, 





This is an opposite control field. Sort this 
field so that the data from the field is in the 
sequence opposite that specified in column 18 
of the header iine. 





This is a forced control field. Change the con- 
trol field according to the entries in columns 
9-19. 


| This isa summary data freld¢ 


} Use this entry for tag along (SORTR, SORTRS) sorts 
only. (If you use a D entry during an addrout sort, the 
line will be treated like a comment line.) 











“Use this entry for summary tag along (SORTRS) onty. 
{If you use an S entry during an addrout sort, the line 
will be treated like a comment line. If you use an S 
entry during a tag along sort, the fields will be 
treated as normal data fields). 





Data Fields (D in Column 7} 


Data fields apply to tag along (SORTR, SORTRS) sort 

jobs only. They are fields you want the program to include 
in the sorted records, but which you do not want the pro- 
gram to use in sorting the records. Within each inciude set 
(include and field description tines), control field lines 
must be placed before data field lines. 


When your file has more than one type of record: 


@ The number of data fields does not have to be the same 
for all record types. 


@ The total lengths of all the data fields do not have to be 
tine same for all record types. Disk sort places blanks to 
the right of shorter data fields so that all total lengths 
are equal. 


Comment Lines (* in Column 7} 


Comment lines help document the program. They do not 
affect the program’s operation. You can code comment 
lines anywhere in the sequence specifications; however, 
comments will be printed only if column 27 of the header 
line contains a zero or blank. 


Control Fields (N, O, or F in Column 7) 


There is no limit to the number of control fields allowed, 
however, the total length of all the control fields must be 
from 1 to 256 bytes long. 


When your file has more than one type of record: 


@ The number of control fields does not have to be the 
same tor all record types. 


@ The total /engths ot the control fields do not have to be 
the sare for all record types. 


When records with duplicate control fields (records with all 
control fields equal) are sorted, their order as output is 
unpredictable. 


Normat and Opposite Control Fields (N or O in Column 7): 
These control fields are fields the program uses to sort 
records or record addresses. They are fields in your input 
records. However, you can define 1-ciaracter cuntrol fields 
that are not in the records by using an unconditional force. 
(See Forved Control Fields.) 


Forced Control Fields (F in Column 7): There are three 
types of forced control fields: 

@® Conditional 

@ Force-all 

@ Unconditional 

Forced control fields affect the work and output records 
only. (It is important to remember that disk sort never 
changes your input records.) 

See Column 17, Column 18 and Column 19 for information 


on how to fill out the field description specifications when 
you are using forced control fields. 


A conditional force occurs only if a control field in the tn- 
put record contains a particular entry. Suppose, for ex- 
ample, that you want to sort a file of records, each of which 
has a 1-position control field. If the character in the control 
field is an X, you want to replace it with an A before you 
sort the records. To do this, you would use a conditional 
force. Your conditiona! force tield would teil disk sort: 


@ Build a work record from the input record: 


1-position control field Wonirol ield portion 


ode 


\ utd por uon 
bo 


ee 


Input record 4 Work record 


7 





i 
Is yposttion control field 


@ Ifthe control field contains an X, chanye it to an A: 


Bis eens 


x Le Shape | A Pe Data —— 


Original work record 





Sp 


New work record 


Force-all is a special type of conditigna: 'ce. Force-all 
occurs only when a control field in an stijui record does not 
contain a particular entry. Suppose, for vxampie, chat you 
want to sort a file of records, each of witch has a 7-position 
control field. !f the character in the contiol ficia is nota 

C, you want to put an X in the field before you scart the 
records. To do this, you would use a force-al! line to force 


the X into the control field. 


A force-all line follows a series of conditional lurce lines. 
For example, you may want to tell disk sort. 


@ \lfthe control field contains a C, replace it with a F. 
@ |f the control field contains an /, replace sf witrr a 2. 
@ If the control field contains a $, repiace st with a 3. 
@ Ifthe control field does not contain a C, an F, ora $, 


put an X in the contro! field. (You are forcing out all 
other possible entries by using a force-aii line.) 
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An unconcitional force does not depend on entries in the 
input receres. If, for example, you want to put a dollar 
sign ($} in <ne first position of every output record, you 
would use ai unconditional force. Your unconditional 
forced control field would tell disk sort to put a dollar sign 


in the first available control field position of the work record. 


| 
Pe 


Ne eg 
Control *‘clds 
portion 


Data portion 


Any other control fields will go after the dollar sign. Assume 


the input records are in this format: 
Data Control Dat 
: field A ae 


The work record will then look like this: 
Senitol Data 
field B 


See Column 79 for actual coding examples of forced con- 
trol fields. 






Control 
field B 











Control 
field A 





Summary Data Fields (S in Column 7) 


An Sin column 7 of the field description specifications de- 
fines a summary data field. You can define summary fields 
for ail three types of sort jobs, but the fields will be sum- 
marized (added together) only in summary sorts. In tag 
along sorts (SORTR), summary fields will be treated as nor- 
mal data fields. In addrout sorts (SORTA), summary fields 
will be treated as comments. 


In asummary sort, the summary data fields in the work 
and output records for individual record types must always 
be in the same position. The fields do not have to be tn the 
same position in the input records. (See messages SD278 
and $9280.) 


No more than 24 fields can be summarized for each record 
type. 


The f'rst include set that contains summary specifications 
defines the summary format for all included records. It is 
recommended that all include sets contain summary speci- 
fications. If an include set does not contain summary 
specifications, the data specification should align the data 
for summarization. 
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If no summary specifications are given for a SORTRS type 
sort, the output file consists of records with unlike control 
fields as specified in the field statement. Disk sort deletes 
all records with common control fields. Only one copy 

of each is retained. 


Column 8 (C/Z/D/P/U/V) 


Your column 8 entry indicates what portion of the input 
record’s characters you want disk sort to use in building 
and sorting the work records. The column 8 entry is critical 
in assuring that the sort produces the results you intend. 
See Columns 7-8 to find the ways you can combine this 
entry with the column 7 entry. 


Maximum 
Field Length 


Col. 8 Entry Character Portion Used 








Use both zone and digit 256 characters 
portions of the characters 


Use only the zone portion 1 character 


of the character 
Reseee ae eet LenviedG —— eS a 
Use only the digit portion 16 characters 


of the characters 


The characters are signed, 8 bytes or 
packed decimal numbers! 15 digits and sign 


The characters are signed, 16 digits 


unpacked decimal numbers! 


Force a data character into 1 character 


the data field 








'Note that -3 is less than O and +5 is greater than -6. 


Suppose, for example, you have a 1-character control field 
in your input records which can be either an *, 1, 2, or 3. 
The zone and digit portion of each character is: 


Character 








* 


1 





lf you want the records sorted into ascending order using 
the digit portion of the control field characters (by putting 
a D in column 8), they will be in this order: 


x*WN = 


If you want the records sorted into ascending order using 
both the zone and digit portions (by putting a C in column 
8), they will be in this order: 


N 


Suppose you placed a Z in column 8 and wanted the 
records sorted into ascending order. You can then be sure 
that the records with an * control field will precede the 
records with a 1, 2, or 3 control field. Since 1,2, and 3 
have identical zone portions, records with any of these 
numbers as a control field will not be in any special order 
after the sort. 


If you want to force characters into your data field, place 
a V in column 8 and specify the character to be forced in 
column 18. That character will be placed in the first avail- 
able data field position of the work record. 


As you can see, your column 8 entry can drastically affect 
your sorted file. 


Do not confuse this column 8 entry with the column 8 
entry on the record type specifications. Column 8 of the 
field type specifications tells disk sort what portion of a 
character to use to sort the records. The column 8 entry 
on the record type specifications helps select which records 
you want to be sorted. 


Opposite Control Fields 


If you want to sort records so that some contro! fields are 
in ascending order and other control fields are in descend- 
ing order, use opposite control fields. An opposite control 
field is sorted in ascending order (if you specify descending 
order on the header line), or in descending order (if you 
specify ascending order on the header line). 


if your file contains different record types, all of which 
have an opposite control field in the same record position, 
your column 8 entries for these control fields must be one 
of the following: 


@ All Ds 
@ All Cs 
@ All Zs 


@ Any combination of Cs and Zs 


With any other combination of entries (for example, Ds and 
Cs), you will not be able to predict the results of the sort. 


When you use opposite controi fields, disk sort changes 
them in building the work record. Therefore, you usually 
drop this meaningless control field information (by coding 
an X in column 28 on the header line) for tag along or 
summary sorts. !f the opposite control fields are all Ds, 
you do not need to drop the control field. If you wish to 
retain the original control field data in the output record, 
repeat the information as a data field. 


Packed or Unpacked Control Fields (Normal or Opposite) 


!f you specify packed or unpacked control fields, disk sort 
changes the contro} fields while building the work record. 
Therefore, you must drop the control field information by 
coding an X in column 28 on the header line. If you wish 
to retain the original control field data in the output record, 
repeat the information as a data field. 
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Forced Control Fields 


Here are a few rules to remember when you are using 
forced control fields: 


® You can have only one character in your forced control 
field. 


@ You can indicate either a conditional or an unconditional 
force. 


© A force-all line must be preceded by a conditional force 
line. 


® You define a forced control field by placing an F in 
column 7 of the field specifications. 


See Columns 9-16, Column 17, Column 18, and Column 
79 for further information on how to complete the field 
specifications. 


Using Control Fields to Sequence Information in the Sorted 
Records 


The order in which you describe contro! fields in the field 
specification lines determines the sequence of the records 
(tag along sort) or the record addresses (addrout sort) in 
the sorted file. 
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Suppose each record in your file that is sorted in ascending 
order (A in column 18 of the header line) has a normal 
control field in positions 1.2 and an opposite control field 
in positions 5-7. Each record represents one customer’s 
order for a separate item. The part number is in position 
1-2; the number of parts ordered ts in positions 5-7. Your 
unsorted file might look like this: 


Input record position 


PWN? OO 


on 
i 


ror) 





——_— —_—_— 


input Part Number 
record = number orderad 
number 


You can use the first control field to surt the records in 
ascending order according to the part number. You can 
then use the second control field to sort the number of 
parts ordered in descending order within each group of 
parts. Therefore, you want your sorted file to look like 
this: 


Output recerd position 





ol 








o 





=- CS|- NNN 
AONODOH$-DD 


Ourout Part 


record 


Number 
number ordered 
rumber 


Include these field specifications to do the preceding sort: 
























































Notice that the information occupies Gi tercst cusitions ay 
the input and output records. The record positions change 
when the control fields and data fields ai: 
the input to the work to the output files. Since an opposite 
control field is specified, all the controi fisids in the saput 
record are dropped (columns 1-2 and 6°/) To save the con 
trol fields, specify them as data (see exvinple) 


Moved from 


IBM SEQUENCE SPECIFICATIONS 
‘ _ Header 2 oe Ko si os 
i. ences 
cope aee 
= SAT PBX. = : eenaek sh te ae ND, et non pee eae 
: Record Type 
ia ~T a (as ae al oP ct = —e eo ee a v ae SFia. re dgt Dot ets Pee ~ <= yd 
5 OG = Bi ae cm 
a ts . a - 3 
a | [ 1) | ALL RECORDS INCLUDED LW SORT 
; | | | Fieid 
Bee te Su = ca Oe Cet CORSE 
rT rT | a eo tba = a SS | 
mis | e } 
le Heal “hel | 
L. ok i - als y [| 2 sts | pe att UES f oe a eS ens Beenie a ge eas ee , | 
a0; Cnr rae VHIS CONTROL FIELD I$ DROPPED | | 
ve Te 5 7 ae TH:S CONTROL FIELP £8 DROPPED. || 
ee, (ume es CONTROL FIELD DESCRIBED AS DATA. 
. Ail CONTROL FIELD DESCRIBED AS DATA 























Columns 7-8 


Here are all the possible combinations tor columns 7 and 8: 







| ' Maximum 
; Col. 7 Col. 8 Fietd Length 
Nor O C 256 
2 1 
> 16 
P 2 
U 16 
F cr 1 
rae j 
DI 1 
D C 256 
e 1 
16 
p tat 
| U 16 
Vv ! | 
S C 266 
z ‘ 
Dv 16 
Pp i 8 
7 16 
Vv 1 a} 


+ : et ss (ri 
' Does not apply 

i (comment line) 
MPor an unconditional force and a 


force-ail line, column 8 must con- 


See Column 7 and Calumnn & tor detailed discussions of 
seach entry 
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Columns 9-16 (Field Location) 


Columns 9-16 identify the input record positions that con- 
tain the record fields. Columns 9-12 (from) identify the 
starting position of a field; columns 13-16 (to) identify the 
position in which the field ends. 


The order in whicti you describe the fields in the field 
description specifications determines the order they will 
be in in the sorted output records. 


For example, suppose you have an input record that looks 
like this: 


Input record 


Field name ITEM PRICE BAL REORD 





{item {price {number in (reorder 
number) per item) stock) point) 


ge 


Record position 23 29 


However, you want your sorted output record to look like 


this: 
Output record 
Field name iTEM REORD BAL 
Record position 1 5 6 12 13 19 


Assuming that you want to sort the records by item num- 
ber, here is how you would fill out the field description 
specifications: 


























Steed cash Ses ae ae ge Gre eat eee, pay EO eee 
hae wes i 
eo eed | 

bet ~ 7 ae att peee he en ret Gg es wee : r : 
1D, 23 294 
Ve. 15 at | | 
| | fe 

Popa | ! 
PO See ithe nn, te a 
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As another example, if you want the 1-character field in 
position 20 of your input record to be in the first position 
of the sorted output record, you would describe the field 
in the first line of your field description specifications. In 
this example, the primary control field for the output file 
is deterrnined by position 20 of the record: 












































Field Length 


The length of the field depends on the column 8 entry. 


Col. 8 Entry Maximum Field Length 


256 characters 
1 character 


—}—_____. 


8 characters 


16 characters 


16 characters 





1 character 





Coding Rules 


Entries must be right-justified. The from entry must end 
in column 12; the to entry must end in column 16. 


To describe fields that are only one character long, leave 
columns 9-12 (from) blank, and enter the number of the 
record position that contains the character in columns 
13-16 (to). 


Page of SC21-7522-8 
Issued 28 March 1980 
By TNL: SN21-5704 


Column 17 (Conditionally Forced Control Fields) 


See Column 7 for general discussion of forced control 
fields. You make an entry in column 17 only when you 
want to use a conditional force. (For example, if you 
want to put an * in a control field only if the present entry 
isan A.) When you use conditional force, the input record 
does not change, but the work and output records will con- 
tain an * instead of an A. (See Column 7 or Column 18 
for more information about conditional force.) 


The column 17 entry tells disk sort which character in the 
control field (defined in columns 13-16) you want to re- 
place. The program checks to see if the control field in 
the work record contains the character you specified in 
column 17. If it does, the character in column 18 replaces 
the control field character. 


If a control field can contain any one of several characters 
and you want to specify a forced character replacement 
for each one, you must include a column 19 entry in all 
the forced field lines (except the first). See Column 79 for 
instructions. 


Column 18 (Forced Character) 


See Co/umn 7 for general discussion of forced fields. You 
make an entry in column 18 when you are using forced 
control fields to sort your records or forced data fields. In 
forcing a control field, the character in column 18 either 
replaces the character specified in column 17 or adds a 
new character. In forcing a data field, the character in 
column 18 is added to the output record at the first 
available data field position in the work record. 


Remember that the change to the field does not alter 


your input record. Remember, too, that you must use 
forced characters only with 1-character fields. 
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Page of SC21-7522-8 
Issued 28 March 1980 
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Defining a Conditional Force Character 


1. Fill in columns 1-6 as you would for any control 
field. 
2. Put an F in column 7. 


3. Define the position of the control field in the input 
record in columns 13-16. 


4. Enter the character you want to replace in column 17. 

5. Enter the character you want to replace it with in 
column 18 (you can use any System/3 character in 
column 18). 


Defining a Force-All Character 


1. Fill in columns 1-6 as you would for any control 
field. 

2. Put an F in column 7. 

3. Put the character which replaces the control! field in 
column 18. 


4. Put any System/3 character in column 19. (The 
character in column 19 tells disk sort that the line 
is a continuation of the preceding line.) 


5. Leave columns 9-17 blank. 
If you do not place a force-ail line after conditional force 
lines and disk sort does not find the specified characters in 


the control field of the input record, disk sort: 


@ Replaces the control field character with hex FF (if you 
specified ascending sequence in the header line). 


@ Replaces the control field character with hex 00 (if you 
specified descending sequence in the header line). 


Defining an Unconditional Force Character 


1. Fill in columns 1-6 as you would for any control 
field. 

2. Put an F in column 7. 

3. Put the character you are forcing in column 18. 

4. Leave columns 9-17 blank. 


Sample Job 4 illustrates the use of conditionally forced 
characters to group record types. 
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Specifying an Overflow Indicator Field 


1. Fill in columns 1-6 as you would for any control 
field. 
2: Put an S in column 7. 


3. Put a V in column 8. 


4. Enter a character in column 17 if you do not wish to 
use an * as a replacement. If overflow occurs in any 
summary data field in the record, the initial value of 
the overflow field will be replaced by the character 
in column 17. 


5. Enter a character in column 18. If none of the sum- 
mary data fields overflow, the overflow field will 
contain the character specified in column 18. 


Column 19 (Specifying Replacements for More Than One 
Character of a Forced Control Field) 


If a control field in the input record can contain any one of 
several characters and you want to specify forced character 
replacements for more than one character, use a separate 
line to define each possible character and the forced charac- 
ter you want to replace it with. 


Note that column 19 is assumed blank for the first field 
statement of an include set. 


Coding Rules 


1. Define the control field in columns 13-16. 

2. Enter the first character you want to replace in 
column 17. 

3. Enter the character you want to replace it with in 
column 18. 

4. Enter the next character you want to replace in 


column 17 of the next card. 


5. Enter the character you want to replace it with in 
column 18. 
6. Enter any character (except blank) in column 19. 


This tells disk sort the line refers to the same contro! 
field in the work record as the preceding line. 


Repeat steps 4, 5, and 6 for any other characters to be 
replaced in that control field. 


Note that you can use any System/3 character you want in 
column 18. 


Examples of Using Forced Control Fields ®@ Conditional force using normal or opposite and forced 
contro! fields 
You can use forced control fields to change {add to or re- 
place) a character in a 1-position control field. The fotlow- @ Force-al! 
ing examples represent these types of forced control 
characters: 
Unconditionally Forced Character 
@ Unconditional to-ce 
This example illustrates how you can unconditionally place 
® Conditional force using only forced control fields a control field into the work and output records: 


Position 1 {control field) 20-22 (data field) 


Input record 


Field description 
specitications (ie 





This unconditional force 
moves a + into the first 
available work record po- 
sition. 


Move the data field (po- 
sitions 20-22 of the input 
record) to the next three 
positions of the work record. 











Work record ae BIZ 


Control Data 
field field 


Output recoru 572 


eee 


Control Data 
Geld treid 
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Conditional Force Using Only Forced Control Fields 


This example illustrates how control field characters change 
according to the conditions you specify. 


Position 4 (contro tieid) 20-22 (data field) 


Input records 


Field description 
sree 
specifications im 
aaa 





Namber If position 4 of the input record contains 


an A, move a 1 into the work record. 


Lo jf : lana us mfr fifo If position 4 contains a B, move a 3 into 
aia | it, HlAl! | the work record. 

fst ma i 

ore) |i 4B 

i! 23 




















FIC 
ois. ft a Hie i: 4 2ix;/—__SJ-—_ !f position 4 contains a C, move a 2 into 
j dat 1 | 
vio 1 IDIC 20 22 the work record. 


= Move the data field (positions 


20-22 of the input record) to 
the work record. 


Work records 





Control Data 
fieid field 


Output records 





Contro! Data 
field field 


This example also shows how you use column 19 to specify 
conditional replacements for more than one character. Be- 
cause continuation lines are used, only one position in the 
work and output records is defined by the first three lines. 
If column 19 is Jeft blank, each line would define a new 
position in the work and output records. 


If you are sorting records into ascending order (A in column 
18 of the header fine), disk sort places hex FF into the work 
record before you force any characters. If you are sorting 
records into descending order (D in column 18 of the header 
line), disk sort places hex 00 into the work record before 
you force any characters. Therefore, if disk sort does not 
find an A, B, or C in position 4 of the input record, the hex 
00 or FF is left unchanged in the work record. 


Conditional Force Using Normal or Opposite and Forced 
Control Fields 


This example is similar to the previous one since the con- 
trol field in the input record causes changes in the work 

and output records. In this case, however, disk so-t first 
moves the control field to the work record (because the 
first contro! field is a normal contro! field) and then changes 
it if necessary. Notice that any forced character replace- 
ments are made before the records are sorted. 
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Position: 1 (control field) 20-22 (data field) 


Input records 





Field description 


Spey oe Move the control field (in position 1 
specifications 


of the input record) to the work rec- 
ord and use it to sort the records into 
order (assume that ascending order is 
specified on the header line). 


Location 








From Te 

DCC 
Fallon Tt If position 1 of the input record contains 
| : ‘ : x 
| | : a 9, replace it with a 7 in the work record. 
| | | | | If position 7 of the input record contains 
| 20 | | a7, replace it with a 9 in the work record. 
. i] 





Move the data field (positions 
20-22 of the input record) to 
the work record. 


Work records 





Control Data 
fietd field 


Sorted output records 















eee 


822 


Control Data 
field field 
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Force-All 


Suppose your control field can contain characters other 
than A, B, or C. If you don’t want a hex FF or 00 in the 
work and output records, use a force-all line. 


Position: 1 (control field) 20-22 (data field) 


Input records 


Field description 
specifications 





This is a force-all line. If position 1 of the 
input record does not contain an A, B, or 

C, place an * into the first available work 

record position. 











If position 1 of the input record contains 
an A, move a 1 into the work record. 

If position 1 contains a B, move a 3 into 
the work record. 

If position 1 contains a C, move a 2 into 
the work record. 


Move the data field (positions 
20-22 of the input record) to 
the work record. 





Work records 





Control! Data 
field field 


177 
521 


XN \ 
— 


Control Data 
field field 


Output records 


\ 
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Columns 29-22 (Overflow Field Length Entry) 


These columns are used only by a summary tag along sort 
to eliminate the possibility of an overflow condition. 


You can eliminate the possibility of an overflow condition 
by increasing the length of the summary data field to allow 
for any anticipated overflow. This can be done by coding 
an overflow field length entry in columns 20-22 of the field 
description specifications. The overflow field length entry 
should reflect the sum of the summary data field length 
and the anticipated overflow length. The entry must be 
righit-justified to column 22, and cannot exceed the maxi- 
main field length. 


Columns 20-22 are ignored for an FSZ and FSV since these 
fields can be only one byte long. 


For example, if you want to summarize an unpacked field 
in positions 6-10 of your input record and you know that 
the output will exceed the 5-position summary field by 2 
positions, specify a 7 in column 22: 


PPE sel Tel el CT PET 


If packed fields are summarized, columns 20-22 should 
specify the number of bytes of packed data. 








For example, if you want to summarize a packed field in 
positions 1-3 of your input record and you know that the 
output will exceed the 3-position packed summary field 
(5 numbers plus sign) by 1 position, specify a 4 in column 
22 (7 numbers plus sign): 


loll TelsleL 


Note: Wher some include sets do not contain summary 
specifications, care should be taken to align the data for 
summarization. 
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Columns 23-39 


These columns are not used. Leave them blank. 


Columns 40-72 (Comments) 


Columns 40-72 are for your comments. If you instructed 
disk sort to print sequence specifications (column 27 of the 
header line is either blank or contains a zero), comments 
are printed along with your sequence specifications. The 
comments have no effect on the program’s operation. 


Columns 40-45 are enclosed in dotted lines on the coding 
sheet, because many programmers like to use these columns 
to write the names of fields they described in the field lines. 


Chapter 6. Sample Disk Sort Jobs 


Each job in this section has: 


1. An introduction explaining its purpose 
2. Filled-out sequence specification sheets 
3. Discussion of the sequence specifications 


The first six jobs use one or more of the following files and 
input records. (Sample Job 7 uses other files and input 
records, which are explained in the introduction to that 
job. Sarnple Job 8 uses the inventory file and input records, 
and is included to illustrate multivolume multiple device 
input. Sample Job 9 uses the inventory file and input 
records, and is included to iftustrate record selection on 
hexadecimal input.) 


Records in Files Contents of Records 
a oe 

Inventory file {nventory records Quantities of items in stock 

Number of transactions for each stock item 


Issue records Shipments of items to customers 

















Transaction file Receipt records Purchases of more items from suppliers (vendors) 














Adjustment records Corrections to inventory quantities 
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The format of the four types of records are shown in the 
following charts: 


Record Formats for the Inventory File 


Inventory 
Record 
Positions 


1-6 


7-10 


11-24 


25-27 


28-29 


30-34 


35-39 


40-45 


46-50 


51-56 
58-62 


69-74 
75-80 
81-86 


87-91 
92-96 


97-99 


100-105 
106-111 








Field 
Names 


{TEM 


CLASS 


DESC 


LOC 


UNIT 


COST 


PRICE 


REORD 


OTY 


BAL 
ORDER 


AVAIL 
PORDER 
PDATE 


VEND1 
VEND2 


TRANS 


TDATE 
ISSUES 


Contents! 


Item information 

Number of stock item to 
which the record applies 

Class of the item (men’s cloth- 
ing, jewelry, etc) 

Description of the item 


Stock status and reorder 

information 

Location of the warehouse 
where item is stored 

Unit of measure for ordering 
the item (by the pound, by 
the dozen, etc) 

Cost of the item per unit 

Price (per unit) at which 
item is sold 

Reorder point (lowest stock 
quantity allowed) 

Number of units to order 
when reordering 

Number of units in stock 

Number of units ordered, but 
not yet received 

Number of units available 
(BAL + ORDER) 

Purchase order number 

Date of purchase order 

First vendor 

Second vendor 


Transaction activity 

Number of transactions for 
this period 

Data of last transaction 

Number of units issued dur- 
ing this period 


lany unsigned numeric field (packed or unpacked) can be treated 
as character information. 
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Record Formats for the Transaction File 


Record 
Positions 


2-7 
8-12 
13-19 
20-27 
28-33 
34 
35-39 


40-42 
43-50 


2-5 
6-11 
12-16 


17-22 
23-27 


2-7 


9-13 


14-17 


18-23 


Field 
Names 


ID 
ITEM 
QTY 
CUST 
INV 
DATE 
DIS 
PRICE 


CON1 
COST 


CLASS 
ITEM 
PRICE 


PORDER 
QTY 


ID 


ITEM 


CODE 


QTY 


DATE 


Contents’! 


Issue Record 

| (identifies this record as an 
Issue record) 

Number of the stock item to 
which record applies 

Number of units ordered (5 
dozen, 32 pounds, etc) 

Customer number 

Invoice number 

Date of the order 

Discount information 

Price of the item per unit 

The constant 001 

Total cost of items ordered 


Receipt Record 

R (identifies this record as a 
receipt record) 

Class of the item ordered 
(men’s clothing, jewelry, etc) 

Number of the item ordered 

Price of the item per unit (by 
the dozen, by the pound, 
etc) 

Purchase order number 

Number of units ordered 


Adjustment Record 

A (identifies this record as an 
adjustment record) 

Number of the stock item to 
which record applies) 

Adjustment code (identifies 
reason for the adjustment) 

Number of units (dozen, 
pounds, etc) being added or 
subtracted 

Authorization for the 
adjustment 

Date of the adjustment 


Tany unsigned numeric field (packed or unpacked) can be treated 
as character information. 


SAMPLE JOB 1: INCLUDE ON FIELD RELATIONSHIP 
To illustrate an INCLUDE on field relationship, this sample 
job produces a file of inventory information for reordering 
stock items. 


The program selects inventory records for stock items for 
which the quantity on hand (AVAIL field) is less than or 
equal to the reorder point (REORD field). 


Output records are to contain information needed to reorder 
the items. The information is in these fields: CLASS, 
ITEM, DESC, UNIT, COST, OTY, AVAIL, PDATE, 
VEND1, VEND2, and PORDER. 


Output records are to be in ascending order by class (CLASS 
field) and by item numbers (ITEM field) within each class. 
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Since ther? is not enough space on the first coding sheet for 
the last three fields, they are coded on a second sheet. To 
show the proper sequence for the last three fields, put a 02 
in columns 4-2 of the second coding sheet: 











































































Header Specifications 
Column 6 


The H ideniifies the line as a header line. 


Columns 7-12 


SORTR identifies the job as a tag along sort. 


Columns 13-17 


The control fields used to sort records in this job are CLASS 
and ITEM. The total of their lengths is 10, which is the 
entry for celumns 13-17. 


Column 18 

The A s*enas for ascending order. Output records are to be 
sorted into ascending order by CLASS and ITEM fields. 
Columns 29-32 

The ouput records contain eleven fields, including two 
control fic!ds (CLASS and ITEM) and nine data fields. Con- 
trol fields are not being dropped (column 28 blank}. There- 


fore, the length of the output record is the total length (64) 
of all eleven fields described in field specifications. 
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Record Type Specifications 
Column 6 
The | identifies the line as an include line. The input 


records described by the line are used by the program. All 
others are omitted. 


Column & 
Both factor 1 and factor 2 fields are numeric positive fields. 


The D in column 8 causes zeros and blanks to be considered 
equal in case leading zeros were not recorded. 


Columns 9-16, 17-18, and 20-27 


Inventory records for which the number of units available 
(AVAIL) is equal to or less than the reorder point (RE- 
ORD) are selected: 


@ Columns 9-16 identify the location of the AVAIL field 


(record positions 69-74). 


Columns 20-27 identify the location of the REORD 
field (record positions 40-45). 


Columns 17-18 define the relation between the two 
fields. 


Column 19 


An F in column 19 indicates that factor 1 is compared to 
the field located by the entries in columns 20-27. 


Field Specifications 


Column 6 


Column & 


Zone and digit portions of all fields are used as they appear 


in the input records. 


The F identifies the lines as field specification lines. 


Column 7 


The first two fields described (CLASS and 1TEM) are nor- 


Columns 9-16 


Columns 9-16 identify the locations of fields in the input 
records. 


mal control fields. The rest are data fields. All are included 
in the output record (column 28 of header line is blank). 


The records are sorted into ascending order by the CLASS 
field. Within each class, the tem numbers (ITEM field) 
are in ascending order. 





CLASS Sequence 





ITEM Sequence 





Sequence of Records in 
Sorted Output File 














Lowest class number | 


eae awe 


Lowesi item number 
Next higher item number 
Third higher item number 


Highest item number 













Each higher 
class number 


Highest class number | 





Lowest item number 
Next higher item number 
Third higher item oumber 


Highest item number 










+ : nts 
Lowest class number — Lowest item number 

Lowest class number -- Next higher item number 
Lowest class number — Third higher item number 


| Lowest class number» Highest item number 





Class number -- Lowest item number 
Class number - Next higher item number 
Class number -- Third higher item number 


Class number - Highest item number 





Lowest item number 
Next higher item number 
Third higher item number 


Highest item number 


Highest class number — Lowest item number 
Highest class number -- Next higher item number 
Highest class number — Third higher item number 







Highest class number -- Highest item number 
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SAMPLE JOB 2: ADDROUT SORT 


To illustrate an addrout sort, this sample job produces 
a record address file for an entire inventory file. 


Assume that the inventory file is an indexed file. The 
ITEM field is the record key used in the index (the record 
keys are in ascending order). 


This job creates a record address file containing relative 
record numbers of all records in the file. It sorts them into 
ascending order by the CLASS field. Within each class, 
addresses are also sorted into ascending order by ITEM 
field. 


As a result of this job, inventory records can be processed 
consecutively in either of two ways: 


1. By using the file index, which is in ascending order 
by ITEM field. 


2. By using the record address file created by the disk 
sort program, which is in ascending order by CLASS 
and also by ITEM within each class. 


IBM 


SEQUENCE SPECIFICATIONS 


Header Specifications 
Column & 


The H identifies the line as a header line. 


Columns 7-12 

SORTA identifies the job as an addrout sort. 

Columns 13-17 

The control fields used to sort addresses in this job are 
CLASS and ITEM. The total of their length is 10, which 
is the entry tor columns 13-17. 

Column 18 

The A stands for ascending order. The records are sorted 


into ascending order by item class (CLASS field), and by 
itern number (ITEM field) within each class. 
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Header 
a T = 
































i 
oe Eee oe Sie 


top ledafefe ana ode ta a fieh 
een nee 














Po 6 { Total — 10 characters 
t sg | ae E : 






































CLASS OF ITEM--JEWELRY, ETC | 
STOCK LTEM NUMBER || 











Record Type Specifications 

Because all input records are being used arid all have the 
same field specifications, no record type specifications are 
needed ({include-all is implied). 

Field Specifications 


Column 6 


The F identifies the lines as field specification lines. 


Column 7 


Both fields (CLASS and 1TEM) are normal control tields. 
The record addresses are sorted into ascending order by 
CLASS field and by !TEM field within each class: 


Column 8 


The C means that both zone and digit portions of the 
characters in the CLASS field are used in the sorting 
process. 


The D means that only the digit portions of the characters 
in the ITEM field are used in the sorting process. This 
causes blanks to be treated as zeros. 


Columns 9-16 


The CLASS field is located in positions 7-10 of the input 
records. 


The ITEM field is located in positions 1-6 of the input 
records. 





CLASS Sequence 


ITEM Sequence 


Sequence of Records in 
Sorted Output File 








Lowest class number 


Each higher 
class number 


Lowest item number 
Next higher item number 
Third higher item number 


Highest itern number 


Lowest item number 
Next higher item number 
Third higher item number 


Highest item number 





Highest class number 





Lowest item number 
Next higher iter: number 
Third higher stem nurnber 


Highest item number 


| 
\ 








i Class number 
4 


{_owest class number - Lowest item number 
Lowest class number - Next higher item number 


Lowest class number -- Third higher item number 


Lowest class number ~~ Highest item number 


sp 


Lowest item number 
~ Next higher item number 
— Third higher item number 


Class number 
Class numbei 
Class number 


Highest item number 


Highest class number -. Lowest item number 


Highest class number Next higher item number 


Highest class number -- Third higher item number 


Highest class number - Highest item number 
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SAMPLE JOB 3: AND LOGIC—OPPOSITE CONTROL 
FIELDS 


The program selects inventory records for stock items in 
classes 0126-0130. 


Output records are to contain only inventory information 
that indicates the activity (transactions) involving the stock 
items. The information is in these fields: ITEM, CLASS, 
TRANS, and ISSUES. 


Output records are to be sorted in ascending order by class 
{CLASS field), and in descending order by number of trans- 
actions (TRANS field) within each class. 
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Header Specifications 
Column 6 


The H identifies the line as a header line. 


Columns 7-12 


SORTR identifies the job as a tag along sort. 


Columns 13-17 


The control fields used to sort records in this job are CLASS 
and TRANS. The total of their lengths is 7, which is the 
entry for columns 13-17. 


Column 18 


The A stands for ascending order. One contro! field 
(CLASS) is defined as a normal control field in field 
specifications. The other contro! field (TRANS) is an 
opposite control field. The records, therefore, are sorted 
into ascending order by item class (CLASS field), and into 
descending order by number or transactions (TRANS field) 
within each class. 


Column 28 


The X indicates that control fields are being dropped from 
the output records because the TRANS field is an opposite 
control field. The program must convert the information 
from the TRANS field into a special form so that the 
records can be sorted properly. The program does not 
return the information to its original form after sorting. 
The information, therefore, would be meaningless. 


The information from these two fields, however, is neces- 
sary in the output records. Therefore, the fields are also 
defined as data fields (see the explanation of column 7 of 
the field specifications for this example). 


Columns 29-32 


Because control fields are dropped from the output records, 
the length of the output records is the total dength of the 
fields defined as data fields in field specifications. The 
length is 19, which is the entry in columns 29-32. 


Record Type Specifications 


Column 6 


The | identifies the record type lines as include lines. The 
input records described by these lines are used by the 
program. All others are omitted. 


Column 7 


The A in column 7 means that tine 02 is a continuation of 
the definition of the record described in fine 01. A means 
AND. An input record must meet ail conditions listed in 
lines 01 and 02 before it is included. 


Column 8 


The D in column 8 of lines 01 and 02 means that the digit 
portions of the characters in positions 7-10 of the records 
(factor 1) is compared with the digit portion of the con- 
stants 0126 and 0130 (factor 2). Leading blanks in posi- 
tions 7-10 would be treated like zeros. Therefore, 6126 
(6 is blank) and 0126 would be considered equal. 


Columns 9-16, 17-18, and 20-39 


Inventory records that indicate the activity (transactions) 
of stock classes 0126-0130 are to be selected: 


@ Columns 9-16 (factor 1) identify the location of the 
CLASS field (record positions 7-10). The CLASS field 
contains 4-digit class numbers. 


@ Columns 20-23 list constants (C in column 19), that in 


this example define the upper and lower limits of the 
classes being selected from the inventory file. 


® Columns 17-18 define the relationship between the 


input record field being used to build the file (factor 1) 
and the constants in factor 2. Al! inventory classes 
equal to or greater than (GE) 0126 and equal to or less 
than (LE) 0130 are to be included in the sorted file. 


Columns 19 and Columns 20-39 


The C in column 19 indicates that factor 1 is cornpared to a 
constant in columns 20-39. The constant in line 01 is 


0130; the constant in line 02 is 0126. 
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Field Specifications 
Column 6 


The F in column 6 of lines 07-12 indicates that the lines are 
field specification lines. 


Column 7 


Column 7 indicates the type of fields being described. The 
fields described in lines 07 and O8 (CLASS and TRANS, 
respectively) are control fields. CLASS is a normal contro! 
field. TRANS is an opposite control field. Output records 
are sorted so that CLASS fields are in the order indicated 

in column 18 of the header specifications (ascending order). 
Records having the same CLASS field are in descending 
order according to the TRANS field. 
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The fields described in lines 09-12 are data fields. They are 
included in the output record but have no effect on the 
sequence of the records. 


Note that the CLASS and TRANS fields are described 

once as control fields and once as data fields because 
TRANS is an opposite control field. Its contents in the 
control field portion of the output records are changed in 
the sorting process and would be meaningless for later 
processing. Therefore the control fields are dropped from 
the output records {X in column 28 of the header specifica- 
tions) and CLASS and TRANS are defined as data fields so 
they would still appear in the output records. 


The form of the output record 1s as follows: 


TEM | CLASS | TRANS [ issues | 





Does 


{ 





(eG) ae I ae eae, 
Positions 


SAMPLE JOB 4: MULTIPLE INCLUDE SETS WITH FORCE 


This sample job produces a history file of transaction in- 
formation by selecting records for ail transactions in the 
transaction file. 


The entire file of input records is used in creating output 


records. 


The output records will be used to produce a his- 
tory of the activity involving various stock items. 


Output records are sorted by record type: RECEIPT 
records first, ISSUE records second, and ADJUST (adjust- 
ment} records last. Each type of record is sorted into 
ascending order by item number (ITEM field). The ISSUE 
records also have a subcontrol field - DATE OF ORDER. 
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Header Specifications 
Column 6 


The H iclentifies the line as a header line. 


Colurnns 7-12 


SORTR identifies the job as a tag along sort. 


Columns 13-17 


Three types of records are described, one on each sheet. 
The total length of the contro! fields for each type of 
record is 7, 13 and 7 characters, respectively. The largest 
of these totals (13) is the entry used in columns 13-17. 


Column 18 


The A stands for ascending order. It indicates the order 
into which output records (described in the three sets of 
field lines) will be sorted. 


Columns 29-32 


The total length of control fields for each type of record 
described is 7, 13, and 7 respectively. The total length of 
data fields for each type of record is 20, 26, and 16 respec- 
tively. The largest control field total (13) is added to the 
largest data field total (26) and the result (39) is used in 
columns 29-32. 


Record Type Specifications 
Column 6 


Column 6 tn line 01 of each of the three sheets contains an 
| indicating that the lines are include lines. The input 
records described by these lines are used by the program. 
All others are omitted. 


Column 8, Columns 9-16, Columns 17-18, Column 19, and 
Columns 20-39 


Column 8 in tine 01 of each of the three sheets contains a 
C indicating that the entire character in position 1 of the 
input records is to be compared with the constants R, |, 
and A respectively. Only input records with one of those 
characters in position 1 will be included in ths job. 


In the record type lines, columns 9-39 have the following 
meanings: 


@ Columns 9-16 identify the input record position (position 
1) being compared against R, 1, and A. 


@ Columns 17-18 indicate the comparison result that deter- 
mines whether an input record is used (the cnaracter in 
position 1 must egua/ R, |, or A). 


@ Cin column 19 of each line indicates that the characters 
against which the input record character is corapared 
are constants supplied in columns 20-39. 


® Columns 20-39 supply the constants (R, 1, and A, res- 
pectively) used in the comparison. 


Field Specifications 


Field specifications differ for the three types of records 
being described. The records, therefore, were described on 
separate coding sheets. 


Column 6 


The F in column 6 of lines 07-12 on sheet 01, lines 07-14 
on sheet 02, and lines 07-12 on sheet 03 indicate that the 
lines are field lines. 


Column 7 


Column 7 indicates the types of fields being described for 
each of the three types of records. The records described 
by sheets 01 and 03 (RECEIPT and ADJUST records 
respectively) have two control fields. The records describ- 
ed by sheet 02 (ISSUE records) have three. The remaining 
fields described are data fields. 
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These diagrams show the formats of the output records that 


will be created from each of the three types of input records. 


The numbers underneath the field identification blocks indi- 
cate the position that information will occupy in the output 
record. 


Control field 












Receipt records 
(sheet 01) 


Control field 


| | ae ee sae same sere | eer | Gee 


Data 


a ee 





ITEM DATE aTty 


Issue records 
(sheet 02) 


Control field 


a 


, | eae 8 +--+ cai eae ee 30-—______-—> 39 


Adjust records 
(sheet 03) 


The first control field in each type of output record is a 
forced control field. The number 1 will begin every 
RECEIPT output record, 2 will begin ISSUE records, and 
3 will begin ADJUST records. This forces all RECEIPT 
output records to be first, all ISSUE records second, and 
all ADJUST records third. 


The output records for this job must be the same length. 
The total number of characters in the control fields 
described for RECEIPT and ADJUST was less than the 
total for ISSUE records (the control field length for ISSUE 
on the header is used to assign the absolute length of the 
control field). Therefore, the program added binary zeros 
at the end of the control fields for RECEIPT and ADJUST 
output records. Blanks were added at the end of the data 
portion of RECEIPT and ADJUST output records to make 
the total length of the records equal to the total length of 
ISSUE output records. 
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Columns 9-16 and Column 18 


Columns 9-16 of the field tines identify the locations of the 
fields in the input records. 


The first control field for each type of record is a forced 
control field. On each sheet, it is described by a force-all 
line. For this reason, columns 9-16 are blank in those lines. 
Column 18 identifies the character to be used in the forced 
control field: 1 in output records created from RECEIPT 
records, 2 in ISSUE output records, and 3 in ADJUST out- 
put records. 


SAMPLE JOB 5: SUMMARY SORT—ELIMINATING 
DUPLICATES 


This sample job produces a list of inventory items requir- 
ing adjustments by selecting all adjustment records in the 
transaction file. 


The output record is a control field consisting of the stock 
item number only. 


Since the output record consists of no data field and, in 
particular, no summary data fields, the result of the 
SORTRS job will be to eliminate all duplicate adjustment 
stock item numbers from the file. 


The output records, each consisting of a unique stock item 
number that had an adjustment, are to be in ascending order. 


The output provides a list of all stock items that had an 
adjustment. 
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Header Specifications 
Column 6 


The H identifies the line as a header line. 


Columns 7-12 


SORTRS identifies the job as a summary sort. 


Columns 13-17 

Only one control field is used in this job: ITEM. Its 
length is 6, which is the entry for columns 13-17. 
Colurnn 18 


The A stands for ascending order. 


Columns 29-32 

The output record consists of one control field only. The 
output record length is 6, the control field length. 

Record Type Specifications 

Column € 

The | identifies the record type line 01 as an include line. 
Input records described by this line are to be sorted. 


Since this is the only include set, all other records are 
omitted. 
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Column 7 


Line 01 is the first (and only) include line of this include 
set consisting of lines 01 and G7. Therefore, column 7 
must be blank. 


Column 8 


The C in column 8 tells disk sort to use both the zone and 
digit portions of the factor 1 and factor 2? fields described 
in line 01. 


Columns 13-16, 17-18, 19, and 20 


Only adjustment records containing an A in position 1 are 
to be included in the sort. 


Field Specifications 
Column 6 


The F in column 6 of line 07 indicates that this is a fieid 
specification line. 


Columns 7 and 8 


The NC in columns 7 and 8 of line 07 indicates that it is a 
normal control field consisting of both the zone and digit 
portions of the characters in the input records included in 
the sort. 


Columns 9-16 


Columns 9-16 of line Q7 identify the location of the stock 
item number (having a length of 6) that is to be used as the 
control field. 


Page of SC21-7522-8 
Issued 28 March 1980 
By TNL: SN21-5704 


SAMPLE JOB 6: SUMMARY SORT-INSERTION OF 
CHARACTER DATA—FDV 


This sample job produces a summary history file of issues 
by customer number by selecting all ISSUE records from 
the transaction file. 


Using a summary sort (SORTRS), a file is to be formed con- 
sisting of each customer to whom any stock item was issued. 


Each output record consists of a unique customer number, 
the total number of issues it had, and the total dollar value 


of all the issues. 


The output records are to be in ascending order by customer 
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Header Specifications 
Colurnn 6 


The H identifies the line as a header line. 


Columns 7-12 


SORTRS identifies the job as a summary sort. 


Colurnns 13-17 

The work record as well as the output record consists of a 
control field made up of the customer number. |ts length is 
7, which is the entry for columns 13-17. 

Column 8 

The A indicates that the control field is to be sorted in 
ascending order. 

Columns 29-32 

The control field is not to be dropped when writing the 
output file. The length of the output record is the control 
field (seven characters) added to the data fields specified 
by lines 08-14 (16). This totals 23 and is the entry for 
columns 29-32. 

Record Type Specifications 

Column 6 

The | identifies the record type line 01 as an include line. 


Input records described by this line are to be sorted. Since 
this is the only include set, all others are omitted. 


Column 7 
Line 01 is the first (and only) include line of this inciude 


set consisting of lines 01 and 07; therefore, column 7 must 
be blarik. 
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Columns 8, 16, 17-18, 19, and 20 


Only ISSUE records containing the full character | in posi- 
tion 1 of the input records are to be included in the sort. 


Field Specifications 
Column 6 


The F in column 6 of lines 07-14 indicates that the lines are 
field lines. 


Columns 7 and 8 


The NC in line 07 specifies that this is the control field to 
be sorted in the sequence specified in column 18 of the 
header line (ascending order) using both the zone and 
digit portions of the characters. 


Lines 08, 09, 11, and 12 are data summary overflow fields 
which are used here as data field unconditional 1-character 
force fields. 


Line 10 indicates that this is a summary data field. When 
the data in the input record (positions 40-42) is used to 
build a work record, only the digit portion of the charac- 
ters is used. This is done since CON1 is an unsigned deci- 
mal number. Using a D in column 8 with signed number 
Causes the absolute value of that value to be used. 


Line 13 also is specified as a summary data field. However, 
U in column 8 indicates that this is signed unpacked decimal 
data. The sign is to be moved to the work record and used 


in subsequent summary additions. 


Line 14 is specified as the summary overflow indicator byte. 


Columns 9-16 

Entries are placed in the from and to columns for lines 07, 
10, and 13 to indicate the control field, digit summary 
data field (CON1), and the signed unpacked decima! sum- 
mary field cost, respectively. 

For lines 08, 09, 11, and 12, the entries are blank since 
these are overflow indicator specifications. 


Column 17 


The X in line 14 defines the field as an overflow field. 


Column 18 


This column is only used for lines 08, 09, 11, 12 and 14. 


The line numbers and the forced value in the data fields 


are: 


08 
09 
11 
12 
14 


The initial work record created from the ISSUE records will 


look like this: 


® (blank) 
# 
@ (blank) 
$ 
® (blank) 


Control field 


I 


ee 
2 a ee ee 


Positions 





1 


ee 
| -¢@ $$. 


will be summarized for records having identical control 


fields (CUST). These positions 10-12 (CON1) in the work 
records will be summarized to reflect the total number of 
issues (TNUMB) for a given customer number. Likewise, 

positions 15-22 (COST) will be summarized to reflect the 


total cost of all issues (TCOST). 


The output record will look like this: 


| CUST 


homens | 


A blank in position 23 indicates that TNUMB and TCOST 


are valid sums. X in position 23 indicates that overflow 
occurred summarizing TNUMB and/or TCOST for this 
customer number giving invalid sums. 


1 718 9110 221 23 


aoe be pi plea is. 


Since this is a summary sort, the CON1 and COST fields 
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SAMPLE JOB 7: NEGATIVE VALUES POSSIBLE 


This same: job illustrates the possibility of ending up 
with negacive values by sorting the summary history file 
by descending total dollars issued. 


The input for this job is the output file created by Sample 
Job 6. Each input record has the following format: 


Record 


Position Contents 





Customer number 
Constants: band = 
TNUMB Total number of issues to customer 
Constants: band S$ 
Total cost of all issues to customer 


Overflow indicator: 


6 — TNUMB and TCOST are 
valid sums 


Invalid sum; overflow 
occurred while summar- 
izing TNUMB and/or 
TCOST 





Oniy receres with valid TNUMB and TCOST will be used. 

A recore 30°t of the valid records is desired; that is, the for- 

mat of the nutput record is to be identical to the input (the 

output of the second summary sort sample job). 

The records are to be sorted by total dollars issued (TCOST) 
in descencing order. It is possible that TCOST could be 


negative for «ome customer numbers. For this reason, a 
sort that considers the sign must occur. 


Header S»xecifications 


Columr: 6 


The H iden: ifies the line as a header line. 


Columns 7-32 


The A record sort involving no summary data required a 
tag along scrt. SORTR is the chosen entry. 
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Columns 13-17 


One type of record is specified to be included. The total 
length of the control fields for this type is 8 (the entry in 
column 17). 


Column 18 


The D stands for descending oider. The largest positive 
number comes first, the largest negative number (the 
negative number having the largest absolute value) comes 
last. 


The absolute values of -19 and -99 are 19 and 99. -99 is 
more negative than -19 since its absolute value is greater 
than 19. 


Column 28 

The X indicates that the control field 1s to be dropped 
when forming the output file. 
Columns 29-32 

When the control field is dropped, only the data portion 
remains. This data portion is the entire input record; thus, 
23 is entered in columns 29-32. 

Record Type Specifications 

Columns 6 and 7 

Two record types are specified: One type is to be omitted 
(O in column 6}; one is to be included. Each record type is 
specified by one record type line. Since these lines are the 
first (as well as the last) record type lines in their sets, 
column 7 must be blank. 

Columns &, 9-16, 17-18, 19, and 20-39 

For statement 0101, these columns specify that if position 


23 in the input record contains the full character constant 
X, the record is to be omitted. 


Statement 02 includes all records not omitted by statement 
01. For each record included, a work record is formed by 
the field specifications, statements 07 and 08. Note that 


the control field is an 8-position unpacked field (statement 
07). 


For a more complete discussion of numeric data see 
Column 8 and Columns 9-16 under Record Type 
Specifications. 

Field Specifications 

Column 6 


The F in column 6 of statements 07 and 08 indicates that 
these are field lines. 


SEQUENCE SPECIFICATIONS nl beaut 


Columns 7, 8, 9-16, and 18 


Statement 07 indicates unpacked data in the control field 
from positions 15 through 22 of the input record. (This 
control field is dropped because an X has been coded in 
column 28 of the header specifications.) 


Statement 08 indicates that the entire record is included as 
data. 
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SAMPLE JOB 8: MULTIPLE INPUT FILES 


This sample job illustrates the use of multiple input files 
by producing a 5-year history of sales of selected classes 
of items from selected vendors. 


The input is from the current year inventory file (multi- 
volume file) and from the inventory files for the past four 
years (single-volume files on four input devices). 


The record format for all files is the same as that used for 
the inventory files. 





The records are selected by CLASS number 0126 and 
VENDOR numbers 00023, 00108, and 01120. 


Output records contain information needed to identify 
which vendor’s line of this CLASS has sold the best (num- 
ber of transactions and number of units) per year for the 
current year and the past four years. The information is in 
the following fields: ITEM, CLASS, VEND1, TRANS, 
TDATE, ISSUES. 


Output records are to be sorted in ascending order by year 
(last two positions of TDATE field), then by VENDOR 
number (VEND1 field, and finally by ITEM number (ITEM 
field). 


OCL required for the program is given in the following 
figure. 

















IBM System 3. Basie Aysemier Coding Form 
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Header Specifications 
Column 6 


The H identifies the line as a header line. 


Columns 7-12 


SORTR identifies the job as a tag along sort. 


Columns 13-17 


The control fields used to sort records in this job are the 
last two positions of the TDATE field, and VEND1 and 
ITEM. The total of their lengths is 13, which is the entry 
for columns 13-17. 


Column 18 


The A stands for ascending order. Output records are to be 
sorted in ascending order by YEAR, VENDOR number, 
and ITEM number. 


Columns 29-32 


The output records contain six fields, including the three 
control fields. Control fields are not being dropped (col- 
umn 28 blank). The output length is the total length (26) 
of all six fields described in field specifications. 
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Record Type Specifications 
Column 6 


The | identifies the line as an include line. The input 
records that match the specifications of these lines are 
included. Ail other records are omitted. 


Column 7 


The A identifies the line as an AND statement while O 
identifies the line as an OR statement. The sequence of 
the lines is important in determining the include logic. 
The logic shown includes three types of input records, 
each type being included only if the two AND include 
requirements are met. 


Column 8 


The D means that the digit portions of the characters in 
positions 7-10 and 87-91 of the records (factor 1) is 
compared with the digit portion of the constants (factor 2). 
Leading blanks in positions 7-10 would be treated like 
zeros. 


Columns 9-16, 17-18, and 20-39 
Inventory records that indicate the activity of stock CLASS 
equal to the constant 0126 and vendor (VEND1 field) equal 


to the constants 00023, 00118, and 01120 are to be 
selected. 


Column 19 and 20-39 


The Cin column 19 indicates that factor 1 is compared to a 
constant in columns 20-39. 


Field Specifications 

Column 6 

The F in column 6 of lines 7-12 indicates that the lines are 
field specification lines. 

Column 7 

Indicates the type of fields being described. The fields 
described in lines 07, 08, and 09 (TDATE, VEND1, and 
ITEM) are control fields. N specifies they are normal con- 
trol fields so that output records will be sorted in the order 


indicated in column 18 of the header specifications. 


The fields described in lines 10-12 are data fields. The 
form of the output record is as follows: 


TDATE VEND1 ITEM CLASS TRANS ISSUES 


Positions | 1+—~>2 | 3-7 | a-—13 | 14<—>17 | 18~~20 | 21-26 | 


Column & 


The C defines both the zone and digit portion of the input 
record used. 


Statement 09 defines only the digit portion of the input 
record used. 


Columns 9-16 


Identifies the location of the fields in the input record. 
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SAMPLE JOB 9: RECORD SELECTION ON BINARY 
VALUES 


Data selection on a binary value can be accon.pished using 
the System/3 96-column card, 64-character set. Two types 
of include sequences can be used to @.combinsh pinary 
selection. 


Type 1 Include Sequence 


For binary values whose hexadecimal} eduivalents car be 
represented by one or two characters in the 64-character 
set (see Appendix C, Collating Sequence). use either an 
include character (| and C in columns 6 and 8 ut the record 
type specifications) or an include zone {i and Z in columns 
6 and 8 of the record type specifications }ANDed with an 
include digit (JAD in columns 6 through 8 of the record 
type specifications). 


Type 2 include Sequence 


For binary values whose hexadecima: zone portions do not 
appear in the 64-character set, use two iticiude 
specifications for the zone portion ANDed with an include 
digit for the digit portion. 


Example. Select records that vontain a value of 44 in 
position 2. The binary representation of this number is 
0010 1100, which is a hex 2C. For the digit portion, 
select a character from the table in Appendix C with a 
digit portion of C (for example. -°, *, %, and @). Use 

the character in an include line, comparing its digit portion 
to the binary value of 1100. Since there is no character 

in the 64-character set whose zone portion is equivalent 

to 2, use two include lines to describe constants with a 
Zone portion greater than 7 and less than er equei to 2. 
Describe these constants us packed, which reverses the zone 
and digit portions from hex F? and F2t5 hex 1F end 2F. 
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Record Type 
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Hexadecimal 









Decimal 
Value 


















Value Value 
arte ae ayy a2 wie ae iP ENE SOE “y ae bas afi Oe cee aly eee ee cenit ie 
Field to be selected 2C 0010 1100 
Character @ | 7C 91111100 
| 
Packed character 2. | 2F = 99101111 
Packed character } lf 0001 1111 








The record type specifications shown will cause selection of 
all records containing (in column 2) a value between 31 
(hex 1F) and 47 (hex 2F) whose digit portion is equal to C. 


Note: The 32 hexadecimal values whose zone portions 
are either A or B cannot be accessed with these types of 
entries. Therefore, there can be no record selection based 
on these values. 









44 
124 
47 


31 


Sample Sort Job 9 Description 


The purpose of this sample job is to select records from an 
inventory file whose reorder point is 7800. The reorder 
point is a 2-byte quantity in columns 44 and 45 of the 
inventory records. The quantity is stored in binary 

(7800 = 0001 1110 0111 1000), and the hexadecimal 
representation of this number is 1E78. (Use Appendix C 
to help with binary and hexadecimal conversions.) 
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Field to be selected, column 44 
Character + 

Packed character 1 

Packed character 0 

Field to be selected, column 45 


Character @ 
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00011110 = 30 


01001110) = 78 


000114111) = 31 


00001111 = 15 


0111 1000 


01111106 


1111 1060 
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These specifications will cause selection of all records 
containing (in column 44) a value between 15 (hex OF) 
and 31 (hex 1F) whose digit portion is equal to E. These 
specifications will further limit selection of records to 
those which have a binary value in column 45 whose 
Zone portion equals 7 and whose digit portion equals 8. 
Therefore, all records selected will have hex 1E78 in 
columns 44 and 45. 


Header Specification 


Column 6 


The H identifies the line as a header line. 


Columns 7-12 


SORTR identifies the job as a tagalong sort. 


Columns 13-17 


The total length of the control field is 6 bytes. 


Column 18 


The A stands for ascending order. The file will be sorted 
according to the standard collating sequence shown in 
Appendix C. 


Columns 29-32 


The control field is not dropped when data is written to 
the output file (column 28 is blank). Therefore, the 

length of the output record equals the length of the control 
field (6 bytes) plus the tength of the data field (105 
characters) specified by lines 07 and 08. This output 
record length totals 111, which is the entry for columns 

29 through 32. 
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Record Type Specifications 


Line 01 selects records whose digit portion in column 44 
is E. Lines 02 and 03 select records whose packed value in 
column 44 is less than or equal to hex 1F, and at the same 
time is greater than a packed value of hex OF. 


The only hexadecimal values that satisfy both specifications 
for lines 02 and 03 are hex 11 through hex 1F. Line 04 


is acomment line. Lines 05 and 06 select records whose 
zone portion in column 45 is 7 and whose digit portion is 8. 


Field Specifications 


Column 6 


The F identifies the lines as field specification lines. 


Columns 7, 8, and 9-16 


Line 07 indicates that the control field is in positions 1 
through 6 of the input records. Only the digit portions of 
the characters will be used. This control field will be 
included in the output file. 


Line 08 indicates that the other 105 input record characters 
are included as data in the output file. 


Chapter 7. 


SAMPLE JOB 1: SORTING ON A CONTROL FIELD 
THAT CONTAINS EITHER A POSITIVE INTEGER OR 
A POSITIVE REAL NUMBER 





Integer (Binary) and Real Number Sorting 
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Header Specification 


Column 6 


The H iclentifies the line as a header line. 


Columns 7-12 


SORTR identifies the job as a tagalong sort. 


Columns 13-17 


The control field that contains either a positive integer or a 
positive real number has a length of 4 bytes (the entry in 
column 17). 


Column 18 


The A specifies ascending order. The smallest positive 
integer or positive real number comes first; the largest 
positive integer or positive real number comes last in the 
sort sequence. 


Columns 29-32 


The control field is not dropped when data is written to 
the output file (column 28 is blank). Therefore, the length 
of the output record equals the length of the control field 
(4 bytes) added to the length of the data field (60 
characters) specified by lines 07 and 08. This output 
record length totals 64, which is the entry for columns 29 
through 32. 
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Record Type Specifications 
Because all input records are being used and all have the 


same field specifications, no record type specifications 
are needed (include-all is implied). 


Field Specifications 


Column 6 


The F identifies the lines as field specification lines. 


Columns 7, 8, and 9-16 


Line 07 indicates that the control field is in positions 1 
through 4 of the input record. This control field is 
included in the sorted output file (column 28 of the header 
line is blank). 


SAMPLE JOB 2: SORTING ON A CONTROL FIELD 
THAT CONTAINS ONLY A POSITIVE OR NEGATIVE 
INTEGER 














Job Description 
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Header Specification 


Column 6 


The H identifies the line as a header line. 


Columns 7-12 


SORTR identifies the job as a tagalong sort. 


Columns 13-17 


The total length of the control field (for either a positive 
or a negative integer) is 5 bytes (the entry in column 17). 
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Column 18 


The A stands for ascending order. Since negative integers 
are stored in two’s complement form, the smallest 

negative integer comes first; the largest positive integer 
comes last in the sort sequence (for example, -2,-1, 0, 1, 2). 


Column 28 


The X indicates that the control field is dropped when data 
is written to the output file. 


Columns 29-32 


When the control field is dropped, only the data portion 
remains. The data portion in this sample job is the entire 
input record. Therefore, 64 is entered in columns 29 
through 32. 


Record Type Specifications 


Column 6 


Two record types are specified (positive integers and 
negative integers). Both record types are to be included 
(I in column 6 of line 01, pages 01 and 02). 


Columns 8, 9-16, 17-18, 19, and 20-39 


On line 01 (page 01), these columns specify that if position 
1 (the leftmost byte of the 4-byte control field from the 
input record) is less than or equal to the character 
constant '’ (see note), the work record will have a 
character 2 forced into the first byte of its 5-byte control 
field (line 07 on page 01). This include line selects only 
positive integers. Line 01 (page 02), which is an include-all 
line, indicates that all records not described by the first 
include line (page 01) are also included in the sort. The 
first include line (line 01 on page 01) selects all positive 
integers, therefore, this include-all line (page 2) selects 

all negative integers, which will have a character 1 forced 
into the first byte of their work record control field (line 
07 on page 02). All negative integers are forced in front 
of all positive integers in the sort sequence. 


Note. The special character “’ has a bit configuration of 
01111111, which is equivalent to the high order byte of 
the maximum positive integer. 


Field Specifications 


Column 6 


The F identifies the lines on pages 01 and 02 as field 
specification fines. 


Columns 7, 8, 9-16, and 18 


On line 07 (pages 01 and 02), these columns specify that 
for positive integers (line 07 on page 01), a character 2 

will be forced into the first byte of the work record control 
field; for negative integers (line 07 on page 02), a character 
1 will be forced into the first byte of the work record 
contro! field. 


On line 08 and 02, columns 7, 8, and 9 through 16 specify 
that the control field is in positions 1 through 4 of the 
input records. (The control field is not included in the 
output records because header specification column 28, 
page 01, contains an X.) 
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SAMPLE JOB 3: SORTING ON A CONTROL FIELD 
THAT CONTAINS ONLY A POSITIVE OR NEGATIVE 
REAL NUMBER 
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Header Specification 


Column 6 


The H identifies the line as a header Sine. 


Columns 7-12 


SORTR identifies the job as a tagalong sort. 


Columns 13-17 


The total length of the control field (for either a positive 
or negative real number) is 5 bytes (the entry in column 17). 


Column 18 


The A stands for ascending order. The smallest negative 
real number comes first, the largest positive real number 
comes last in the sort sequence (for example -2.0, -1.0, 
0.0, 1.0, 2.0). 


Column 28 

The X indicates that the control field is dropped when data 
is written to the output file. 

Columns 29-32 

When the control field is dropped, only the data portion 
remains. The data portion in this sample job is the entire 


input record. Therefore, 64 is entered in columns 29 
through 32. 
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Record Type Specifications 


Column 6 


Two record types are specified (positive real numbers and 
negative real numbers). Both types are to be included 
(1 in column 6 of line 01, pages 01 and 02). 


Columns 8, 9-16, 17-18, 19, and 20-39 


On line 01 (page 01), these columns specify that if position 
1 (the leftmost byte of the 4-byte control field from the 
input record) is less than or equal to the character 

constant "’ (see note), the work record will have a character 
2 forced into the first byte of its 5-byte control field (line 
07 on page 01). This include tine selects only positive 

reat numbers. Line 01 (page 02), which is an include-all 
line, indicates that all records not described by the first 
include line (page 01) are also included in the sort. The 
first include line (line 01 on page 01) selects all positive 
real numbers; therefore, this include-all line (page 02) 
selects all negative real numbers, which will have a 
character 1 forced into the first byte of their work record 
control field (line 07 on page 02). All negative real 
numbers are forced in front of all positive real numbers 

in the sort sequence. 


Note: The special character " has a bit configuration of 


01111111, which is equivalent to the high order byte of 
the maximum positive real number. 


90 


Field Specifications 


Column 6 


The F identifies the lines on pages 01 and 02 as field 
specification lines. 


Columns 7, 8, 9-16, and 18 


On line 07 (pages 01 and 02), these columns specify that 
for positive real numbers (line 07 on page 01), a character 2 
will be forced into the first byte of the work record control 
field, for negative real numbers (line 07 on page 02) a 
character 1 will be forced into the first byte of the work 
record control field. 


On line 08 (pages 01 and 02), columns 7, 8, and 9 through 
16 specify that the control field is in positions 1 through 4 
of the input records. Note that real numbers are always 
carried in true form (never in two’s complement form). 
Therefore, sorting negative real numbers into ascending 
sequence requires them (when treated as character fields) 
to be sorted into descending sequence. 


On line 09 (pages 01 and 02), columns 7, 8, and 9 through 
16 specify that 64 input record characters are included as 
data in the sorted output file. 


The OCL cycle you use depends on the type of sort you 
want to do: 













Type of Sort 






Cycle To Use What The Cycle Does 


Gives the system the OCL 
statements it needs to run 
the sort job. 









Sort job you plan 
to run only a few 
times 








Stores the OCL statements 
necessary to run the sort 
job ina source library.! 







Sort job you plan 
to run frequently 





Tells the system you want 
to use a procedure! to run 
a sort job. 







Stores the OCL statements 
necessary to run the sort 






job in a source library.! 






BUILDC 





Sort job you plan 
to run as one of 
a group of jobs 


Puts the name of each job 
in the group and the disk 
location of the OCL state- 
ments for each job ina 

source library.! 











CALL Tells the system you want 
to use the BUILDC proce- 
dure! to runa group of 


jobs. 







Note: See Appendix H for CCP/Disk Sort oriented file 
and program considerations. 
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Appendix A. Conversational OCL for Model 6 


CODING OCL CYCLES 


This appendix contains keyword-response summary charts 
for the LOAD, BUILD, and CALL cycles. For the keyword- 
response summary for the BUILDC cycle, see the /BM 
System/3 Model 6 Operation Control! Language and Disk 
Utility Programs Reference Manual, GC21-7516. 


@ Words or letters in all capital letters (such as INPUT, 
INCLUDE, R1) are entries the operator must make. 


@ Words or letters not in all capital letters (such as proce- 
dure name, mmddyy) represent information you must 
supply. 


@ P/S indicates the program start (PROG START) key. 
@ ENTER- indicates the ENTER - key. 


For more information about any particular statement (key- 
word and response), see the keyword description section of 
the /BM System/3 Model 6 Operation Control Language 
and Disk Utility Programs Reference Manual, GC21-75146. 


THE MODIFY STATEMENT 


The only responses shown on the following charts are those 
that apply directly to the disk sort program. For other 
MODIFY options (such as correcting one of the statements 
in a cycle) see the keyword description section of the /BM 
System/3 Model 6 Operation Control Language and Disk 
Utility Programs Reference Manual, GC21-7516. 
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THE LOAD CYCLE 


H 



























































Prompt Response l Considerations 
READY LOAD 
(P/S) 7 
LOAD NAME $DSORT System name for the disk sort program 
(P/S) 
UNIT R1, R2,F1, or F2 Disk that the disk sort program is on 
(P/S) 
DATE mmddyy or ddmmyy If you want a different system date for 
(P/S) your job 
or 
(P/S) If you want to use the system date for 
your job or no date is required 
SWITCH (P/S) Disk sort does not use external indicators 
FILE NAME INPUT Name that disk sort uses for file you want 
(P/S) to sort 
UNIT Ri, R2, F1, or F2 Which disk the file you want to sort is on 
(P/S) 
PACK Disk name Name of disk which contains the file to 
(P/S) be sorted 
LABEL VTOC filename Name you use for the file you want to 
(ENTER-) sort (PAYROLL, INVENT, etc.) 
Input file is = a in aRaEan 
FILE NAME WORK (optional) Name disk sort uses to refer to file you are 
(P/S) going to use for work area during this sort. 
lf WORK is not used, disk sort performs 
automatic work file allocation. 
UNIT R1, R2,F1, or F2 Disk containing the file you are going to 
(P/S) use for a work area 
PACK Disk name Name of disk which contains the work file 
(P/S) 
LABEL (P/S) a? 


92 





THE LOAD CYCLE (continued) 
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Prompt L Response | Considerations 
RECORDS (P/S) Do not specify RECORDS for the work 
file 
TRACKS 1-398 Number of tracks file occupies (see 
(P/S) Appendix E) 
LOCATION 8-405 If you want to control the location of the 
(P/S) file on the disk 
Work file 
or 
(P/S) \f you want to let disk sort control the 
location of the file on the disk 
RETAIN S Scratch status because the work file is 
(ENTER-) used for only one sort job 
FILE NAME OUTPUT Name disk sort uses for the sorted file 
(P/S) 
UNIT R1, R2, F1, or F2 The disk you want to put the sorted file 
(P/S) on 
PACK Disk name Name of the disk which will contain the 
(P/S) sorted file 
LABEL VTOC filename Name you use for the sorterdt fire irbes 
(P/S) can be the same as your same for the 
file you want to sort) 
RECORDS 1-999999 Number of records vou want ta sart 
(see note) (P/S) 
Output file TRACKS 1-398 Number of tracks file occupies (see 
(see note) (P/S) Appendix E) 
LOCATION 8-405 lf you want to contro! the location of 
(P/S) the file on the disk (if you are overlay- 
ing an input file with an output file you 
or must specify LOCATION) 
(P/S) If you want to let disk sort control the 
location of the file on the disk 
RETAIN Por T If the outrut file is built during the sort 
(P/S) job, it can have permanent (P) or tempor- 


ary (T) status. If the output file existed 
before you started the sart job, the file 


cannot have permanent status since vou 


cannot overlay a permanent file, 





Note: These are the space keywords. If you are creating a new output file you must respond 


to one of them. 
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THE LOAD CYCLE (continued) 











Prompt Response Considerations 
FILE NAME (P/S) Disk sort uses only three files 
MODIFY RUN Tells disk sort that the OCL statements 
(P/S) are complete. 
If you are going : Sequence : Operator is going to enter the 
to enter sequence specifications sequence specifications from the 
specifications : // END keyboard (one specification per 
from the key- line). 
board : Sequence specifications are com- 


plete. 
Disk sort program sorts your file. 


// SOURCE name, unit : name = name of the KSE-created 
source library entry which contains 
the set of sequence specifications 
you want to use. 


If the sequence unit = the disk (R1, R2, F1, or F2) 
specifications are in whose source library contains the 
a KSE-created source sequence specifications you want 


library entry to use. 
When all these sequence specifica- 
tions have been read, the disk sort 
program sorts your file. 
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THE BUILD CYCLE 


Response 
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Considerations 








BUILD 
(P/S) 














BUILD NAME Procedure name The name you want to give the procedure: 
(P/S) @ Maximum of six alphameric characters 
@ Must begin with alphabetic character 
@ Must not be DIR, SYSTEM, or ALL 
UNIT R1, R2, F1, or F2 The disk containing the source library you 
(P/S) want to put the procedure in 
LOAD NAME SDSORT System name for the disk sort program 
(P/S) 








UNIT 


R1, R2, F1, or F2 
(P/S) 


Disk that the disk sort program is on 





DATE 


ddmmyy or mmddyy 
(P/S) 


or 


(P/S) 


If you want a different system date for 
your job 


If you want to use the system date for 





SWITCH 


(P/S) 





FILE NAME 





INPUT 
(P/S) 


your job or no date is required 


Disk sort does not use external indicators 








Name that disk sort uses for file you want 
to sort 





Input file 


R1, R2, F1, or F2 
(P/S) 


Disk the file you want to sort is on 





Disk name 
(P/S) 


Name of disk that contains the file to be 
sorted 





VTOC filename 
(ENTER-) 





Name you use for file you want to sort 
(PAYROLL, INVENT, etc.) 
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THE BUILD CYCLE (continued) 


| Response 


Considerations 








FILE NAME 


WORK (optional) 
(P/S) 


Name disk sort uses to refer to file you 
are going to use for work area during 
this sort. If WORK is not used, disk 
sort performs automatic work file 
allocation. 




























































UNIT R1, R2, F1, or F2 Which disk the file you are coimg to use |} 
(P/S) for work area is on 
PACK Disk name Name of disk that work file ss an 
(P/S) 
LABEL (P/S) - 
Work file ~ < eyes Tee TACO fate 
RECORDS (P/S) = 
TRACKS 1-398 Number of tracks file occupies (see 
(P/S) Appendix E) 
LOCATION 8-405 If you want to control the location of 
(P/S) the file on the disk 
or 
(P/S) If you want to let disk sort control the 
location of the file on the disk 
RETAIN S Scratch status because the work file is 
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(ENTER-} 






used tor only one sort job 





THE BUILD CYCLE (continued) 


Response 
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Considerations 








FILE NAME 





OUTPUT 
(P/S) 


Name that disk sort uses for file area 
where you want to put the sorted file 





R1, R2, F1, or F2 


Disk name 


(P/S) 


Disk you want to put the sorted file on 


Name of disk which will contain the 
sorted file 





VTOC filename 
(P/S) 


Name you use for the sorted file (this 
can be the same as your name for the 
file you want to sort) 





RECORDS 


Output file (see note) 


1-999999 
(P/S) 


Number of records you want to sort 





TRACKS 
(see note) 


1-398 
(P/S) 


Number of tracks file occupies (see 
Appendix E) 





LOCATION 


RETAIN 


8-405 
(P/S) 


or 


(P/S) 


Por T 
(ENTER-) 


If you want to control the location of 
the file on the disk 


If you want to let disk sort control the 
location of the file on the disk 


If the output file is built during the sort 
job, it can have permanent (P) or tempor- 
ary (T) status. If the output file existed 
before you started the sorted job, the file 
cannot have permanent status since you 
cannot overlay a permanent file 





Note: These are the space keywords. If you are creating a new output file you must respond 


to one of them. 


Canve:sational OU. tor Mode: & 
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THE BUILD CYCLE (continued) 


Response 


Considerations 








FILE NAME 


(P/S) 





MODIFY 
You are going to 
include sequence 
specifications in 
the procedure 


INCLUDE 
Sequence 
specifications 
// END 


Disk sort uses only three files 


Tells the system you are going to 
include sequence specifications in 
the procedure 

Operator types the specifications 
(one specification per line) 

Tells the system the sequence 
specifications are complete 





MODIFY 





MODIFY 


You are going to 
put a pointer to 
the sequence 
specifications in 
the procedure 


INCLUDE 
// SOURCE name, 
unit 





System gives operator opportunity to 
correct any mistakes in sequence specifi- 
cations. Operator types RUN when sure 
all the specifications are correct. System 
stores the procedure in the source library 
you specified in the second OCL state- 
ment. 


Tells the system you are going to 
include in the procedure a pointer 
to the sequence specifications 
name = name of the KSE-created 
source library entry which contains 
the set of sequence specifications 
you want to include in the proce- 
dure 

unit = the disk (R1, R2, F1, or F2) 
whose source library contains the 
set of sequence specifications you 
want to include in the procedure 





MODIFY 
You are not 
putting sequence 
specifications in 
the-procedure 
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You are not going to include sequence 
specifications in the procedure. The 
system stores the procedure in the 
source library you specified in the 
second OCL statement. 





THE CALL CYCLE 


If sequence 
specifications 
are included in 
the procedure 


If sequence 
specifications are 
not in the proce- 
dure and you want 
to enter them 
through the 
keyboard 


If sequence 
specifications are 


not in the procedure 


but are in a KSE- 
created source 
library entry 


Response 
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Considerations 











CALL 
(P/S) 








CALL NAME 


Procedure name 


(P/S) 





R1, R2, F1, or F2 
(P/S) 


Your response to BUILD NAME during 
the BUILD sequence 





Disk where the procedure is located; sys- 
tem displays the procedure 





MODIFY 


RUN 
(P/S) 





Tells the system the OCL statements are 
correct 





INCLUDED 
STATEMENTS 


No response 


System prints sequence specifications 





MODIFY 


Tells the system the sequence specifica- 
tions are correct; system runs the sort 
job 





MESSAGE SD100 
ASKING FOR 
SEQUENCE 
SPECIFICATIONS 


MESSAGE SD100 
ASKING FOR 
SEQUENCE 
SPECIFICATIONS 


Sequence 
specifications 
// END 


// SOURCE name, unit 


Operator types sequence specifica- 
tions on the keyboard (one specifi- 
cation per line) 

Tells the system the sequence 
specifications have been entered 


name = name of the KSE-created source 
library entry which contains the sequence 
specifications you want to use. 

unit = location of disk whose source 
library entry you want to use (R1, R2, 
F1, or F2) 


When the system has read all the sequence 
specifications, it runs the sort job 
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Appendix B. Supplying Sequence Specifications 


JOG 


ADVANTAGES 


re 











Most direct 


re nn 





® aves Wie in THe quesiny oun 


eur t Obs 


@ Cpetator cai: coreect mistakes 
Wha Speclicalor any where 
in the sequence. 


KSE checks each sequence speci- 
ification for format accuracy be- 
fore putting it in source library. 
As a result, there are no error 
halts because of format errors in 
the sequence specifications. 


Saves time in frequently run sort 
jobs. 















WAY TO SUPPLY SEQUENCE 
SPECIFICATIONS FOR DISADVANTAGES 
MODEL 6 










OCL input Device 
Keyboard—if you are 
using conversational 
OCL 

Data Recorder—if 

you are using card 

OCL (not CCP/Disk Sort) 


Conversationa! 
OCL only 


Part of OCL Procedure 











You must provide the entire set of 
sequence specifications each time 
you want to run the sort program. 










Operator can correct typing mistakes 
only in the current specification. The 
operator cannot correct a previous 
specification or insert an overlooked 
specification. 















Operator cannot insert a new specification 
into the sequence. 









Conversational 
OCL only 












Source Library Entry 
Created by KSE 






Requires two KSE program runs: 







1. To put the format descriptions of the 
sequence specifications in a source 
tibrary. 








2. To put the sequence specifications 
themselves in a source tibrary. 










INTERRELATIONSHIP OF CONVERSATIONAL OCL 
AND SEQUENCE SPECIFICATIONS (MODEL 6) 


The following chart shows the skeleton of the OCL LOAD 
and CALL cycles: the first two keywords and any other 
keywords that are of special significance in the interrelation- 
ship of the OCL and the sequence specifications. The rest 
of the keywords (indicated by arrows) follow the normai 
sequence for that cycle. (Appendix A contains the key- 
word-response summaries for each of the three cycles.) 


The gray areas in each box show where the sequence 
specifications fit into the OCL cycle. 


Supplying Sequence Specifications 


OCL Load Cycle OCL Call Cycte 





READY — LOAD READY — CALL 
LOAD NAME ~$DSORT CALL NAME 





To build the procedure 
use a BUILD cycle 







Operator will type 
sequence specifica- 
tions on the key- 
board (one state- 
ment per fine). 





zMessage askin 
pecifications 







READY — BUILD 
BUILD NAME — procedure 
name 
READY -- LOAD READY — CALL 
Sequence specifications LOAD NAME -—$DSORT CALL NAME MODIFY — RUN 





are in a KSE-created 
source tibrary entry. To 
use the specifications, 
enter a SOURCE state- 
ment to give the system 
the name of the KSE entry 
and its disk location. 

















{Message asking for 
ifi 


#Message asking for 
// SOURCE name, uni 
statement 








To build the procedure 
use a BUILD cycle 





/ SOURCE name, unit 
tatement 







Sequence specifications READY 
have been included ina CALL NAME READY — BUILD 
procedure-along with BUILD NAME — procedure 
the OCL statements for UNIT ~ disk location name 

the job. To use the 

specifications, enter 

CALL NAME and UNIT hed een 
statements to give the ystem prints out the 


system the name of the # sequence specifications o 
procedure and its disk // SOU 
location. : 





RUN 








oe 
Sequence specifications 





MODIFY RUN MODIFY 
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SUPPLYING OCL STATEMENTS AND SEQUENCE 
SPECIFICATIONS FOR THE MODEL 10, THE 
MODEL 12, AND THE MODEL 15 







/* (end-of-file) 







(field specifications) 





OCL from system input device 
Sequence specifications from system 
input device 










| Use either 
\ statement 






(record type 
specifications) 












OOOOOHSORTA 


(header specification) Any number of 


field and record 
\ type specifications 






// FILE NAME-OUTPUT, 
... (file description} 






// FILE NAME-WORK 
... (file description) 






Optional \ 






// FILE NAME-INPUT 
(or INPUT1-8 for Mode! 12 
and Model 15), 

... (file description) 


// LOAD $DSORT, unit 







OCL from procedure section of 
source library 

Sequence specifications from procedure 

section of source library 
















// CALL name, unit Placing FILE state- 
ments between the 
CALL and RUN ——e 
statements wil! over- 
ride the FILE state- 
ments in the OCL 
procedure. Sort 






(OCL and sequence 
specifications) 








// COPY FROM-READER, 
LIBRARY-P, NAME-name, 


TO-unit, RETAIN- at 







specification cannot 






be overridden. 






// LOAD $MAINT, unit 
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See note 









// SOURCE name, unit 













OCL from system input device 
Sequence specifications accessed from 
source library by SOURCE statement 


//CEND 









(sequence 


specifications) 
// FILE NAME-OUTPUT, 


... (fite description) 
// COPY FROM-READER, 
LIBRARY-S, NAME-name, 
Tl 
ps 


_ 


// FILE NAME-WORK, 
... (file description) 


Serncenes|| TOUnIE, RETAIN-} 
// FILE NAME-INPUT 

(or INPUT 1-8 for Model 12 
and Model 15}. 

... (file description) 





: Optional cy 





















// LOAD SMAINT, unit 


// LOAD SDSORT, unit 


Note: name indicates the 
source library member name 
containing sort sequence 
specifications; unit indi- 
cates the unit identification 
on which the source library 
resides. 





OCL from procedure section of source 
library 

Sequence specifications accessed from 

source library by SOURCE statement! 











// CEND 















(sequence 
specifications) 


; See noie 
/ 

Sac hea Acad cae // COPY FROM-READER, 
LIBRARY-S, NAME-name, 
§Tl ai] 
iP) 





// CALL name, unit 


TO-unit, RETAIN- 





// COPY FROM- 
READER, LIBRARY-P, 
NAME-name, TO-unit, 





RET AIN- i 


// LOAD SMAINT, unit 


' The SOURCE statement can 
come from the system input de- 
vice, Or it can reside in the pro- 
cedure containing the OCL. 
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OCL from procedure section of 
source library 
Sequence specifications from system 
input device 





/* (end-of-file) 


Field specifications 


Use either 
statement 








(record type 
specifications) 





OOCOOHSORTA 


(header specification) Any number of 


» field and record 
type specifications 


if CAginamesunit % ob ia 







Placing FILE statements between 
the CALL and RUN statements 
will override the FILE statements 
in the OCL procedure. 


// COPY FROM- 





// LOAD $MAINT, unit 





READER, LIBRARY-P, 
NAME-name, TO-unit, 


WHICH OCL AND SEQUENCE SPECIFICATION METHOD 
TO USE FOR THE MODEL 10, THE MODEL 12, AND 


THE MODEL 15 


The method you use to supply OCL and sequence specifica- 


tions depends on the type of sort you want to do: 


Type of Sort 


Method to Use 


How the Method Works 








Sort jobs you plan 
to run only a few 
times 


OCL from system input 
device; sequence specifi- 
cations from system 
input device 


You supply both OCL and sequence 
specifications through the system 
input device. 





Sort jobs you plan 
to run repetitively 


Both OCL and sequence 
specifications from pro- 
cedure section of source 
library (maximum of 25 
specification statements 
allowed in procedure) 


You place the OCL statements and 
sequence specifications in the 
procedure section of the source library 
using library maintenance, then access 
them with CALL and RUN 
statements. 





Sort jobs you plan 
to run using the 
same file but dif- 
ferent sequence 
specifications 





OCL from procedure 
section of source library; 
sequence specifications 
from system input 
device 


OCL from system input 
device; sequence specifi- 
cations accessed from 
source section of source 
library by SOURCE 
statement from the 
system input device 


OCL from the procedure 
section of source library; 
sequence specifications 
accessed from source sec- 
tion of source library by 
SOURCE statement 
from the system input 
device or from the pro- 
cedure section of the 
source library 





You place OCL statements in the pro- 
cedure section of the source library, 
then access them using CALL and 
RUN statements. You supply 
sequence specifications through the 
system input device. 


You supply OCL from the system input 
device. The SOURCE statement 
accesses sequence specifications 

which you have placed in the source sec- 
tion of the source library. 


You place OCL statements in the pro- 
cedure section of the source library, then 


access them using CALL and RUN 
statements. The SOURCE statement 
accesses sequence specifications 
which you have placed in the 

source section of the source library. 
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Appendix C. Collating Sequence 


Standard EBCDIC Collating Sequence 





When Both Zone and Digit Portions of 
Characters are Used 


Order 
in the 
Sequence! 


Character 


Corresponding 
Hexadecimal 
Number? 


When Only the Zone Portion of 


Order 
in.the 
Sequence! 





blank 























1 
(lowest) 


Characters is Used 


Character 


A eee 


When Only the Digit Portion of 
Characters is Used 








Corresponding 
Hexadecimal 
Number2 


Order 
in the 
Sequence! 


Corresponding 


Character 


Hexadecimal 
Number? 





1 
(lowest) 


blank 
& 


- (minus) 


































































































(apostrophe) 


” 


3/-rammMVOBrM 


ee ee 


7A 
7B 
7C 
7D 


TE 
7F 














~ 





50 
C1 
C2 
C3 
C4 
C5 
C6 
C7 
C8 
C9 




















N< xXiS << GC 4O).0 VOC's mene 



































(highest) 





O}O|N]O1N/ Bl co|M|A/OIN|< |x| S/<!C]H]m|wIol}vIo 





8 
(highest) 





x 


OMNMDNARWNH—OSs 








d 
‘ 
ft) 
/ 
A 
J 
1 
B 
K 
Ss 
2 
Cc 
L 
= 
3 
D 
M 
U 
4 
E 
N 
v 
5 
F 
O 
w 
6 
G 
P 
X 
7 
H 
Q 
Y 
8 
] 
R 
Z 
9 
¢ 
! 








% 





@ 
( 
) 


(underscore) 


(apostrophe) 








16 
(highest) 











When several characters share the same position in the sequence, they are considered equal. For example, 
if you are using only the digit portion of characters; H, Q, Y and 8 (position 9) are considered equal. 
This is the number you use in ALTSEO statements to identify a character you want to shift to a different 


order in the sequence. 
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STANDARD COLLATING SEQUENCE 


The standard collating sequence chart shows the three 
standard collating sequences for System/3: 


@ Standard collating sequence when both zone and digit 
portions of characters are being used 


@ Standard collating sequence when only the zone portion 
of characters is being used 


®@ Standard collating sequence when only the digit portion 
of characters is being used 


ALTERNATE COLLATING SEQUENCE 


if you want to change the standard collating sequence, you 
must code an S in column 26 of the header specification 
and code ALTSEO statements. You can code as many 
ALTSEQO statements as you need. Each one must begin 
with ALTSEOQ and can contain a maximum of 96 positions. 


Note: Do not use a packed or unpacked factor 1 in an 
include or omit record type specification (P or U in column 
8) if you specify an alternate collating sequence. 


Coding Rules 


1. 


Code ALTSEQ in the first six positions to tell disk 
sort you want to alter the standard collating sequence: 








Leave the next two positions blank: 


alelt| seg} | D 


3. 


Enter the hex equivalent! of the character you are 
taking out of its normal sequence: 





[A [ijt [s [e| ie) Cpr) DL (hn = hex number) 





4. 


Enter the hex equivalent’ of the value the character 
specified in columns 9 and 10 is to assume in the 
collating sequence: 





[a[eit]s 


6. 


lle] 





Elo] | 


al h 1D (hn = hex number) 





Enter as many pairs of 3 and 4 as the number of 
characters you are taking out of normal sequence. 


Leave no spaces between sets of hex numbers: 





TrIsle[o] 








When you reach the end of one statement, you can 
continue on the next specification line (follow rules 
1-6) 


Enter a double asterisk in positions 1 and 2 to tndicate 
the end of the ALTSEO statements: 





feat a a aaa a 


i= maximum of 96 Bosinans 





ppt tot 
maximum of 96 positions 
ps tet 

eee maximum of 96 positions 
See eeeaes 














‘See standard collating chart for hex equivalents of all System/3 


characters. 
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Input Order When ALTSEQ Statements Are Used 
ALTSEQ statements follow the header line. When you use 


an alternate collating sequence, your input must be in this 
order: 


1. OCL statements 
2. Sequence specifications 


a. Header line 
ALTSEQ statements 


b. 
Cc. ee 
d. Record type and field description lines as required 


3. File to be sorted 


Programming Considerations 

When you move a character into the sequence position 
normally assigned to another, both the new and the original 
character occupy the same position and are considered equal 
(see the first sample ALTSEQ statement). if you do not 
want the two characters to be equal, you must also move 
the character that normally occupies that position (see the 
second ALTSEQ statement). 

Programming Considerations With Card or 3741 Input 
Whenever a record is padded on the right with blanks, the 
padded area is altered by the ALTSEQ logic. 

Effect of ALTSEQ Statements on Other Coding 

ALTSEQ statements can change: 

® Factor 1 and factor 2 


@ Normal and opposite control fields 


© Control field characters before they are replaced or 
added to by forced fields 


ALTSEOQ statements never change data fields in records or 
forced control field characters. 
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Sample ALTSEQ Statements 


To change the sequence of one character: 


ALTSEQ ALTSEO 40F0 
Statements ** 
Explanation Blank (40) is moved to the position in 


the collating sequence occupied by 
zero (FQ). Blanks and zeros, therefore, 
are considered equal. 


To change the sequence of several characters: 


ALTSEQ ALTSEQO 5BC8C8C9C9D1 
Statements em 
Explanation 5BC8 moves $ (5B) to the position 


occupied by H (C8). 

C8C9 moves H (C8) to the position 
occupied by | (C9). 

C9D1 moves | (C9) to the position 
occupied by J (D1). 

The $, therefore, has been inserted be- 
tween G and H, as follows: 
A,B,C,D,E,F,G,$,H,1, (i and J occupy 
the same position). 


PROGRAMMING AIDS 


A Translation Table and Alternate Collating Sequence Cod- 
ing Sheet, X21-9096, is available for you to use to keep 
track of changes you make to the collating sequence. 
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0001 L00E 





LLOLOOLE 





SLUAISAS [J UO B/QU/IEAE B/2 Bsay UMOYS SPOQUIAS B1YGeIB [je LON) aZO/y 









































LLLOLOOL 
OLLotoor 


































LOLOLOOL 


OOL01001 
LLOOLGdL 


OLOOLCOL 
1000100! 
[ o000t001 


OO0LOOLL 
LL LOOOLL 
LOLOOOLL 
001000iL 
LLOOOOLL 
OL0C00Lt 





tb 
le “ 


cley 
| oO 


La le | 
2 Dae 
es 
83 
— 
a aE 







































3) 
a 





LLELLLOL 

















O0LLOCOL 
LLoLo001 


o 
ca 





OLibi io 











Olw)w 
oO) oo) oS 


[ —Fo01001 507 [ie [| v9003 100 
[| {000110 [08 [F001 100 
| eee ee a 





{7 10000110] 











01110100 
to1i0100 
[001 t0100_ | 








Ort 1010 
LOLLLOLO 
OOLLLOLO 
LEOLIGIO 
OLOLLOLO 
oor lore 
00011010 

















& 





altlelolalw 
NIN] oe] ou! oe few 


~ 
a 






























































































i1o00go01 


OLLOLLOL 








LO1OLi1OL 














1000001 
LOOCOOD! 











00000001 


4LOOLLOL 












| Gloolio: | iio | 

















OLiLELLO 


LOOOLEOL 











00001101 LOLLLLLO 





tOrLiior ve | _|-Giolooar LLLOLOLO | ve | __—__—*«|:«oorootoo | 

OOLLLLOL 68 10010001 O1L0Lolo |__| ttaoo100 | 

LhOLLtot | -+$—-] 00010001 1oLro1olo [ ‘| _o1oooi00 | 

O11 tor 7 |) CB YT trtoooor Oo10L010 a SSS ae 

LOOLLLOL 38 OLL00001 

| oo0iL LOL SB es 0Lo01010 | 

[r1vorv01 [96100001] {0001010 [Poti 000 | 
LOLELOON 


























00111000 
LiOLLOOO 
OLOLLOOO 
10011000 
00011000 
(4101000 




















Poe > | orto0r0 | 
ay 


LLOLOOLO 








oypwiele 


O1o10010 








OOLLLLLO 


LiLtoron 
























OLeroros LLOILILO 


LOLIGLOL 



























GOOLLLLO 


LLLOLL LO 





O01 LOLOL 
t1O1GLor 
OLoroloL 

















LOOLOOLO 
00010010 
LLi00010 
01100010 
10100010 
Gorooo10 
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Collating Sequence 










































OLLOLLio LLO000L0 
LOLr0LLLO 01000010 +--+ 
[|__| onrerir0-] [30] [01119000] 
ca e_ |] 11001110] [a0] 16110000] 
= OOO 1011 a ee |_90 | __—| 00110000 | 
es a ee CO [a0] 11010000] 
a a Lo | 00001110 [vo] 10.0000 
psa FN | torotort | 33 z | ttitorto | 60 | | 10030000 | 
Ce ee 39 I Otitori0 | 0 | | 0010000 
re as a CC [zo |__| 11100000 
[2a |__| orator [—39_[__& | oorr0ri0 [90 |} 0100000] 
es a Ce Cs ee | so |__| t0L00000_] 
Sa a TS ELT TE |_| | tooronr0 J ort0r100 | [eo [T6000 
a CT [10 |} 6000000] 
(eae ae am et aie mu ae ER am Ea ea sn (al a 
saye) /Ag sayey /Ag seyey/Ag sae. /Ag . sayey/Ag 
paeyday pace|day paoe|day paceday paoejday 






LAaHS ONIDOD ADNANDAS ONILV1109 JLVNY3L1V GNYV 31aVL NOILVISNVYEL 
AMG Area Atw ped sad stadqs jo “ON, ® 
“WSO ul paquiig = 
2050 W/N -9606-12X9 









uonelodi0g sauTpep] ssautsng ;euoNeusa}Uy 





Appendix D. Timing Considerations 


The time it takes*to run a sort job can vary greatly and is 
dependent on the following factors: 


@ The amount of main storage available for the sort 
program 


@ Number of records to be sorted 

@ Record size 

@ Number of sequence specifications 

@ Whether alternate collating sequence is being used 
@ Disk location of the input, work and output files 
® Order of control fields in the input file 


@ Whether or not automatic work file allocation is 
being used 


@ Use of nonverify option 


® Number of input files and the types of input devices 
(Model 12 and Model 15) 


Here is how each factor affects the length of a sort job. 
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MAIN STORAGE SIZE 

The more main storage the program has: 

@ The more sequence specifications you can have 
@ The longer your records can be 

@ The faster your sort job will run 


See Appendix E for more information and detailed charts. 


NUMBER OF RECORDS TO BE SORTED 


The more records you want to sort, the longer the sort 
job will take. For the most efficient sort Job, therefore, 
use the record omit option whenever possible. 


RECORD SIZE 


The larger the records, the longer it will take to sort a file. 
So, if program run time is important to you, do not include 
fields that contain unnecessary information on your field 
specifications. (Every field you do not include decreases 
the record size by the length of that field.) Remember, disk 
sort builds a work record for each input record included in 
the sort. 


NUMBER OF SEQUENCE SPECIFICATIONS 


The more sequence specifications you use, the less main 
storage space will be available for records. 


@ Each sequence specification uses about 25 bytes of stor- 
age (remember that comment lines use no main storage). 


@ The select/build routine uses approximately 100 bytes of 
storage for functional interfacing. 


@ If you have specified includes and/or omits (referring to 
packed data) for your sort run, the select/build routine 
will use an additional 200 bytes of storage. 


@ If you have specified field statements (referring to packed 
data) for your sort run, the select/build routine will use 
an additional 80 bytes of storage. 


@ Any alternate collating sequence uses an additional 375 
bytes of storage. 


But consider using additional sequence specifications to ex- 
clude records you do not want to sort. The result may well 
be a shorter program run than if you use fewer specifications 
but process more records. 












































































Amount of Main | Maximum Recommended 
Storage Assigned | Number of Bytes of 
to Disk Sort! Select/Build Code 
768 _ 
768 
“a 1024 
a 1280 
1536 
I 1792 
2048 
12K 2304 
13K 2560 
“14K 2816 
TOK _ | 3072 
16K ; L 3328 
17K a 3584 
18K 3840 
19K and above 4096 





1 Maximum storage in the Model 6 is 16K 


ALTERNATE COLLATING SEQUENCE 


Using an alternate collating sequence increases the time it 
takes to run a sort job. 


DISK LOCATION OF THE FILES 


Because the disk sort program must move each record you 
want to sort two times (first from the input file to the work 
file and then from the work file to the output file), file 
location is an important factor in how !ong it takes to run 
ajob. It is important to minimize the distance the disk 

arm must travel between the input and work file and be- 
tween the work and output file. The following diagrams 
show different ways of locating the input, work, and out- 
put files for a sort job. 


Within each diagram, the different methods of file place- 
ment are shown in order of usual performance character- 
istics. Each succeeding method will normally run faster 
than the methods preceding it. For systems having one 

(or two) 5445 disk storage units available for use with sort, 
work files should be placed on a 5445 disk storage unit, if 
possible. If D1 and D2 are both available, put the work file 
on one drive and the input and output files on the other. 
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5444 Fije Placement 
Using one disk on a single 
drive system 


Output | 


be | input | Work 
oe Een iare) Eanes 


or 





\ 
1 

i iN output] Work Input ! R1 
Sah ee - i 
I 


Using two disks on a single 
drive system 





’ | i 
/ | 

| Work input | ; R1 

pet, Ss 

i] 
| Output] ‘ll Fi 

or 
; 1 





Output | Input | FI 
ae —4 


Using three disks on a dual 
drive system 


4 

' 
Drive 1 Work 1R1 

4 

















3 é \ Input | 'R2 
\ ec delern#: AA Cierra e 
( Drive 2 
| | Output | LP 
\ eee mie a 
Using four disks on a dual 
, drive system 
/ 
' i] 
\ \ | Input | \ Ri 
Orive 1 fs ~ = 7 
j i ! | Outout | F1 
4 . ie fakin = —— 
i 
| y- 
\ L_ Work t R2 
Orive 2 | as _ ' 
| ! 
, ] EF2 
Lo, el Ay. — 
or 
| 
\ i | Input i { R1 
JE Seas eee 4 
Grive 1 | i 
| | ' 
; / L a Output | FA 
1 =e, a mi 
\ i 
| | Ese 
\ i | Work | 1 R2 
Drive 2 aa , ey At 
i] 
' | [Le | Work | F2 
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5445/3340 File Placement 


Using one drive 


1 | . 

1 | Output Input Work | D1 

2 | | input Output Work D1 
' ' 

3 Input Work | Output 1 DI 
art! Er : 








Using two drives 





' 
| Output Work D1 
4 
Input \ D2 
1 
/ \ 
Input Work | i D1 
5 
' 
Output , D2 
! 
i} 
Work D4 
6 





! 
Input Output ' D2 


Note: \f the input and output files are on drives separate 
from the work file, this is optimal file placement. If addi- 
tional 5445 or 3340 disk drives are available (up to four 
on Mode! 15), then much larger files can be sorted and 
optimal file placement is easier. 


ORDER OF THE CONTROL FIELDS IN THE INPUT FILE 


Suppose two files contain identical information; however, 
some of the first file’s records and fewer of the second file’s 
records are in the sequence you want. Using the same 
sequence specifications to sort each file, disk sort takes less 
time to sort the first file. 


USE OF THE AUTOMATIC WORK FILE ALLOCATION 
FUNCTION 


Using the automatic work file allocation function generally 
increases the time needed to run a sort Job, because this 
function does not always provide the work fife arrangement 
needed for a fast sort run. If you are concerned with mini- 
mizing sort run-time, use a well planned work file and work 
FILE statement, rather than automatic work file allocation. 


NONVERIFY OPTION 


If an N is entered in column 34 of the disk sort header state- 
ment, the disk sort program will not verify data written on 
the work file. The nonverify option can be used on either a 
5444 or 5445 disk pack. The amount of performance im- 
provement depends on file size, number of records, file 
locations, etc. 


Note that when a work file statement is specified for a 
3340 file (D1, D2, etc) on Mode! 15, the verify option is 
taken from the file statement and column 34 is ignored. 


SAMPLE DISK SORT TIMINGS 


The following timings are supplied to aid you in approxi- 
mating job run times. The sort times shown were generated 
under the followina conditions; any changes may decrease 
performance: 


@ Core sizes shown refer to the amount of main storage 
used by disk sort, excluding the supervisor. 


@ All timings reflect the total sort run time (generation 
time plus execution time). 


@ All runs were made using SORTR, and the record lengths 
shown reflect input, work, and output record lengths. 


® All control fields used were ten characters long. 


@ All input records were included for minimum select/build 
generation. 


®@ Alternate collating sequence was not used. 

® No alternate track assignments were made. 

@ Automatic work file allocation was not used, 

® Optimal file placement was used for all runs (see Disk 
Location of the Files). 

Model 6 and Model 10 Timings Only 


@ input, work, and output files resided on 5444 Model 2 
and 5445 disks for 5444 and 5445 timings, respectively. 


@ None of the 5445 disks are split cylinder files. 


@ The input files was overlaid by the output file to minimize 
file space usage. 


@ All files were sorted into inverse sequence (from ascending 
to descending sequence). 

Model 15 Timings 

© |nput and output files were on D1; work files were on D2. 

@ Only one partition was active during the timings. 


@ All OCL and sort specifications were put on a spool file 
on D3. 


® All files were sorted into descending sequence (from 
random sequence to descending sequence). 
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Sample Model 6 and Model 10 Timings 


Record Size = 




















Single Drive Dual Drive 
5K Partition 
5,000 Records 18 min. 30 min. 
10,000 Records 34 62 
5444 12K Partition 
Timings 5,000 Records 7 11 
10,000 Records 14 21 
28K Partition 
5,000 Records 5 8 
10,000 Records 9 13 
12K Partition 
10,000 Records 9 12 
30,000 Records 32 33 
5445 28K Partition 
Timings 10,000 Records 7 10 
30,000 Records 17 26 
44K Partition 
10,000 Records 7 9 
30,000 Records 16 24 


Note: All times are rounded to the nearest minute. 


114 


Sample Model 15 Timings 


__ Record Size 





100 by tes 200 bytes 





f 


24K Partition 
5,000 Records 3 Min. 
10,000 Records 5 
20,000 Records 10 
Model 154A 50,000 Records 23 
5445 
Timing 48K Partition 
5,000 Records 
10,000 Records 
20,000 Records 
50,000 Records 


24K Partition 

5,000 Records 

10,000 Records 

20,000 Records 

Model 15B 50,000 Records 

and C 3340 

Timing 48K Partition 

5,000 Records 

10,000 Records 

20,000 Records 

50,000 Records 





24K Partition 

5,000 Records 

10,000 Records 

20,000 Records 

Model 15D 50,000 Records 

3340 

Timing 48K Partition 

5,000 Records 

10,000 Records 

20,000 Records 

50,000 Records 





Note: These sample timings increase in direct proportion to the number 
of records. For example, using the 5444 (12K partition with a single 
drive) to sort 7500 96-byte records would take approximately 10 minutes. 
That is, about 50% inore records are being sorted (50% of 5000 = 2500; 


2500 + 5000 = 7500) so the sorting time takes 50% longer (50% of 7 = 
about 3; 3 + 7 = 10). 


Sample Model 12 Timings 


Use the sample timings illustrated for Model 15B for a reasonable 
approximation for the Model 12 run times. 
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Appendix E. Calculating Size of Files 


INPUT FILE 


Use this formula to calculate how many tracks the input 
file will require: 


Number of records in the file x input record length 
a ES NA Re ge, 








Number of bytes in a track 


The number of bytes in a track is 6144 for the 5444, 5120 
for the 5445, and 12,288 for the 3340 (Model 12 and 


Model 15). Round the result up to the nearest whole number. 


OUTPUT FILE 


Use this formula to calculate how many tracks the output 
file will require: 


Number of records to be sorted x output record length 
mobo aes Se ee ers 





Number of bytes in a track 


The number of bytes in a track is 6144 for the 5444, 5120 
for the 5445, and 12,288 for the 3340 (Model 12 and Model 
15). Round the result up to the nearest whole number. 


Note. Number of records to be sorted means the number 
of records that will be selected to be sorted. 


Type of Sort 


WORK FILE 


Do not use RECORDS to specify the work file, use 
TRACKS. 


Use this formula to approximate how many tracks the work 
file will require: 


Number of records to be sorted x 
2+f work record length x 
approximate work file size factor 





Number of bytes in a track 


The number of bytes in a track is 6144 for the 5444, 5120 
for the 5445, and 12,288 for the 3340 (Model 12 and Model 
15). Round the result up to the nearest whole number. 


Rather than using this formula to calculate the number of 
work file tracks needed for each additional run of this job, 
you can use the actual number of tracks of work file used 
in this sort. This number is automatically calculated at the 
end of first pass #0 and is printed out as message SD695. 
In order to save time, you can use automatic work file 
allocation for the first run. Then, in subsequent runs, use 
work FILE statements specifying the number of tracks 
printed in message SD695. 


Work Record Length 


Type of Output Work Record Length 








SORTA 


Address output Length of control fields +3 





SORTR or 
SORTRS 
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Control fields only Length of control fields as 


specified in the header line 





Conwol fields and Length of data + length of 
data control fields. (This is the 
output record length speci- 
fied in the header line.) 





Data only 


Length of data + length of 
control fields. (Output rec- 
ord Jength specified in head- 
er line plus the control field 
length specified in header 
tine.) 





The following table shows the maximum work record 
length for a disk sort run, using various combinations of 
main storage size, input record length, and number of bytes 
of select/build code. For example, if disk sort is assigned 
12K of main storage and your input record length is 1600 
bytes, the maximum work record length you can have, us- 
ing the recommended maximum number of bytes of 
select/build code, is 2808 bytes. However, if you used 


Amount of 
Main Storage 


fewer than 256 bytes of select/build code in the same 
situation, you can have a work record length of 3064 
bytes. Generally, then, this table shows that for a given 
amount of main storage, the maximum work record length 
can be increased by using either fewer bytes of select/build 
code, or smaller input records, or both. This table can also 
be used to estimate the maximum input and output block 
size for tape input/output. 


INPUT RECORD LENGTH 


Maximum 





Assigned to 
Disk Sort 


Code 


For Jobs with Fewer than 
256 Bytes of Select/Build 


For Jobs with Maximum 
Recommended Number of 
Bytes of Select/Build Code! 


Work Record 
Length 








01-768 





769-896 


385-640 





897-1024 
01-1792 








641-768 
01-896 





1793-1920 


897-1408 





1921-2048 


1409-1536 1272 





2049-2176 


1537-1664 1016 





2177-2304 
2305-2432 


1665-1792 760 


1793-1920 504 


2433-2560 1921-2048 2483 


01-2176 


01-1152 2040 


2177-2304 1153-1664 1784 


2305-2432 
2433-2560 


2561-2688 


1665-1792 1528 
1793-1920 1272 
1921-2048 1016 


2689-2816 2049-2176 760 
2817-2944 2177-2304 504 


2945-3072 


01-3200 
3201-3328 
3329-3456 1921-2432 2552 


2305-2432 2483 


01-1408 3064 
1409-1920 2808 








3457-3584 2433-2560 2296 
3585-3712 2561-2688 2040 


3713-3840 


2689-2816 





3841-3968 


2817-2944 





3969-4096 


2945-3072 





3073-3200 





3201-3328 





3329-3456 





3457-3584 





01-4096 











!See Number of Sequence Specifications in Appendix D for maximum 
recommended number of bytes of select/build code per job. 


2Not valid for SORTRS (summary sort). 


3For SORTA (addrout sort), 245 is the largest total length of control 


fields for any record type. 
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Amount of 
Main Storage INPUT RECORD LENGTH Approximate 
Assigned to For Jobs with Less than For Jobs with 11 or More Work File 
Disk Sort 11 Sequence Specifications | Sequence Specifications Size Factor 
01-768 01-384 | 1.52 
769-1024 385-768 2.05 
01-1792 01-896 1.17 
1793-1920 897-1408 1.20 
1921-2048 1409-1536 125 
8K 2049-2176 1537-1664 1“ 1.35 
2177-2304 1665-1792 1.52 
= 2305-2432 1793-1920 he 205 
2433-2560 1921-2048 2.05 
01-2176 01-1152 [4.15 
2177-2304 1153-1664 1.17 
2305-2432 1665-1792 1.20 
9K 2433-2560 1793-1920 = 1.25 
2561-2688 1921-2048 1.35 
2049-2176 1.52 
2817-2044 
2945-3072 2305-2432 2.05 













01-3200 


3201-3328 


3457-3584 
3585-3712 
3713-3840 
3841-3968 























20K 01-4096 
and up 
















01-1408 
1409-1920 ; 
1921-2432 1.12 
2817-2944 1.20 










2945-3072 
3073-3200 
3201-3328 


3329-3456 


3457-3584 2.05 


01-4096 1.07 








EXAMPLE 


For this example, assume these values: 


Number of records in the file or files (Model 15 only) = 


2000 


Number of records to be sorted = 1000 


Input record length = 200 bytes 


Work record length: 


SORTA 
SORTR 


Output record length: 


SORTA 
SORTR 


Main storage size = 8K 


i 


It 


3 bytes 
200 bytes (drop control field} 


Work file size factor = 1.17 


Here are the calculations: 


5444 Disk 


Files 


Input 
file 


Work 
file 


Output 
file 


SORTR 


2000 x 200 


6144 


1000 x 210 


6144 


1000 x 200 


6144 


13 bytes (control field length = 10) 
210 bytes (control field length = 10) 


SORTA 


2000 x 200 


6144 


1000 x 13 


6144 





= 65.1 


x (1.17) + 2= 4.48 


Total tracks for all files = 141 Total tracks for all files = 72 
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5445 Disk Files 


SORTR SORTA 





Input 2000 x 200 78.1 
file — 


5120 79 tracks 


Work 1000 x 210 x (1.17)+ 2 =49.99 


file 


2000 x 200 = 78.1 


5120 79 tracks 

























1000 x 13 x (1.17) +2 -4.97 





5120 5120 


| 





5 tracks | 











Output 1000 x 200 = 39.1 1000 x 3 = 
file 





59 
5120 40 tracks 5120 1 track 
| Total tracks for all files = 169 | Z 











Total tracks for alf files = 85 


— 








3340 Disk Files (Model 12 and Model 15) 





SORTR SORTA 

Input 2000 x 200 2000 x 200 =O) 
file —— pe PST 

12288 33 tracks 12288 33 tracks 
Work 1000x210 \\ x (1.17) #2=19.1 1000 x 13 x (1.17) +2=3.3 
file ne et 

12288 20 tracks 12288 
Output 1000 x 200 
file 


12288 17 tracks 1 track 


| Total tracks for all files = 70 | | Total tracks for all files = 38 | 
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An alphabetic code helps you judge the significance of each 
disk sort message: 


Meaning | Significance 








Terminal The error was destructive. The program must end immediately. 
No more error messages will be printed. 





Severe Error i A source statement contains an error. The program ends after 
the generation phase. 









Action The operator must do something. A system halt follows this 
\ message. 
Warning : An unusual condition has been found. It should be checked out 


to make sure it did not occur as a result Gf a programming error. 





Information For information only. Messages with an | code indicate current 


1 

SS ee omen Jo A Fs a Rae eh eo 
if 
| 
i 


status and progress of job. 











To understand the messages, you must also know something 
about how the disk sort program works. Specifically, you 
must know what happens during the generation phase of 
the program and what happens during the execution phase. 


The generation phase translates your sequence specifications 
into machine language: 






Sequence Specifications Generation Phase Object Program! 


The execution phase gets the records you want sorted, 
sorts the records, and finally writes the sorted records onto 
the output file in the order you want them. 


The object program is often referred to as the select/build routine. 


Appendix F. Messages 


Messages 
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SD100—ENTER SORT SEQUENCE SPECIFICATIONS— 
HEADER FOLLOWED BY INCLUDE/OMIT SETS OR 
// SOURCE NAME, UNIT STATEMENT 


Code: 
Explanation: 


A-—Action 

You must tell the system where the 
sequence specifications for the job are. 
There are two possibilities: the operator 
is going to type them on the keyboard 
(Model 6), on the printer/keyboard (Mode! 
10 or Model 12), or they are already ina 
source library on one of the disks. 
System waits for response from operator. 
If the operator is going to type the 
specifications on the keyboard (Model 
6), or printer/keyboard (Model 10 

or Model 12), he or she must follow 

this sequence: 


System Action: 
User Response: 


1. Header line 
2. All the include/omit sets 
3. // END 


If the sequence specifications are already 
in a source library on one of the disks 
the operator types a SOURCE state- 
ment. This gives the system the name 
and disk drive location of the set of 
sequence specifications. 


$D101—PRINT OPTION ASSUMED TO BE 0 


Code: 
Explanation: 


|—Information 

The print option in your header line is 
not blank O, 1, 2 or 3; therefore, it is 
assumed to be 0. 

The job continues. 

None required. 


System Action: 
User Response: 
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SD102—SORT JOB ASSUMED TO BE SORTR 


Code: 
Explanation: 


W-—Warning 

Neither SORTA,SORTR, or SORTRS job 
type is specified om your header line. 
Because an output record length is speci- 
tied, SORTR is assumed. 

The job continues. 

Check to make sure that a SORTR job 
was wanted. To avoid this error the next 
time the job is run, fill in columns 7-12 
of the header line properly. 


System Action: 
User Response: 


$D103—SORT JOB TYPE NOT SPECIFIED 


Code: 
Explanation: 


T—Terminal 

Neither a job type nor an output record 
length is specified in the header line. 
The job ends. 

Place the proper job type in columns 
7-12 of your header line. Resubmit job. 


System Action: 
User Response: 


$D104—BOTH INPUT AND !NPUT1 ARE PRESENT 
(Model 12 and Model 15) 


Code: 
Explanation: 


S --Severe Error 

The filenames INPUT and INPUT1 are 
considered equivalent by disk sort. Only 
one of these filenames may be used in 

a disk sort. 

The job ends after the generation phase. 
Eliminate one of the FILE statements 

or change one of the filenames to 
INPUT2, INPUT3,..., INPUTS. 


System Action: 
User Response: 


S$D105—INPUT FILE NOT ONLINE(Disk Sort only) 


Code: 
Explanation: 


T—Terminal 

Pack (or packs) containing the input file 
is Not mounted. 

Halt 25 occurs for Model 10, Model 12, 
or Model 15, halt CD45 for Model 6. 
Mount the pack (or packs) containing 
the input file. If the input file is multi- 
volume offline (if more than one pack 
is assigned to a removable unit), only 
the first pack assigned to each unit must 
be mounted. Resubmit the job. 


System Action: 


User Response: 


$D106—WORK FILE NOT ON DISK (Not CCP/Disk Sort) 


Code: 
Explanation: 


System Action: 
User Response: 


T—Terminal 

The work FILE statement specifies that 
the work file is to reside on a device other 
than disk, and disk sort requires the work 
file to be on disk. 

The job ends. 

Either omit the work FILE statement or 
specify the work file to be on disk. If 
you omit the work FILE statement, disk 
sort automatically allocates your work 
file. 


$D108—INPUT AND/OR OUTPUT FILE STATEMENT 


MISSING 


Code: 
Explanation: 


System Action: 


User Response: 


T—Terminal 

Either the input or output (or both) 
FILE statement is missing in this run. 
The job ends. The CD45 halt (Mode! 6) 
or 25 halt (Mode! 10, Model 12, or 
Model 15) cancels the job. 

Include missing FILE statement(s) and 
resubmit the job. 


SD109—WORK FILE STATEMENT MISSING 


Code: 
Explanation: 
System Action: 
User Response: 


S—Severe error 

A work file was not specified. 

The job ends after the generation phase. 
Include the missing FILE statement 
and resubmit the job. 


$D150—CONTROL FIELD DROPPED—-NO DATA 
SPECIFICATIONS 


Code: 
Explanation: 


System Action: 
User Response: 


S—Severe 

No data specifications (summary specifica- 
tions included) were given, yet the contro! 
field is being dropped. If the sort were 
allowed to continue, the output file would 
be all blanks (X‘40’). 

The job ends after the generation phase. 
Add data field specifications and/or retain 
the control field; then resubmit the job. 
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$D151—CONTROL FIELD LENGTH NOT SPECIFIED 


Code: 
Explanation: 


System Action: 
User Response: 


T—Terminal 

No control field length specified on 
header line. 

The job ends. 

You must place the length of your control 
fields in columns 13-17. Do so, and re- 
submit job. 


$D152—CONTROL FIELD LENGTH TOO LARGE 


Code: 
Explanation: 


System Action: 
User Response: 


S—Severe error 

Control field specified too large; 256 is 
assumed. 

The job ends after the generation phase. 
Make the control field !ength in columns 
13-17 256 or less. Resubmit job. 


SD153—INPUT RECORD LENGTH UNDETERMINABLE 


Code: 
Explanation: 


System Action: 
User Response: 


T-—Terminal 

The record length of your input file 
cannot be determined from information 
stored on disk. 

If you specified RECORDS or 
TRACKS on the File statement for 

the input file and the file was not on 
the specified pack, sort was processing 
a newly created file and not your 

input file. 

CCP/Disk Sort users — Columns 39 and 
40-43 of the header statement did not 
contain an R or C followed by the input 
record length. 

The job ends. 

This is a system-program error. If error 
persists, contact your IBM representative 
for program assistance. 
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$D154—ASCENDING SEQUENCE ASSUMED A, 


COLUMN 18 


Code: 
Explanation: 


System Action: 
User Response: 


W—Warning 

Column 18 of your header line has 
neither a D for descending, nor an A for 
ascending sequence. Disk sort assumes 
you want ascending sequence. 

The job continues. 

!f you want descending sequence, you 
can cancel the job at the C123 halt 
(Model 6), or at the 22 halt (Model 10, 
Model 12, or Model 15). 


SD155—OUTPUT OPTION ASSUMED X, COLUMN 28 


Code: 
Explanation: 


System Action: 


User Response: 


W—Warning 

Column 28 of your header line is neither 
an X nor blank. 

Disk sort assumes you want an X in 
column 28 and continues the job. 

If you do not want X, you can cancel the 
job at the C123 halt (Model 6), or at the 
22 halt (Model 10, Model 712, or 

Model 715). 


SD156—OUTPUT RECORD LENGTH NOT SPECIFIED 


Code: 
Explanation: 


System Action: 
User Response: 
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S—Severe error 

This is aSORTR or SORTRS job. Out- 
put record length not specified on header 
line. Disk sort assumes you want the 
maximum length of 4096. 

The job ends after the generation phase. 
Enter an output record length in columns 
29-32 of your header line and resubmit 
the job. 


$D157—OUTPUT RECORD LENGTH TOO LARGE 


Code: 
Explanation: 


System Action: 
User Response: 


S—Severe error 

This is a SORTR or SORTRS job. Out- 
put record length specified on header 
line is too large. Disk sort assumes you 
want the maximum length of 4096. 

The job ends after the generation phase. 
Make sure your header tine is not shifted 
by one or more columns. Specify on out- 
put record length of 4096 or less and re- 
submit job. 


SD158—OUTPUT RECORD LENGTH INCONSISTENT 


Code: 
Explanation: 


System Action: 


User Response: 


S—Severe error 

This isa SORTR or SORTRS job and 
you are not dropping the control field. 
Consequently, the output record length 
(Columns 29-32) that includes the con- 
trol field should not be less than the con- 
trol field (columns 13-17). 

A length equal to that in columns 29-32 
plus the largest total control field (col- 
umns 13-17) is assumed. 

Recompute your output record length, 
change it on your header line, and resub- 
mit the job. 


SD159-WORK RECORD LENGTH TOO LARGE 


Code: 
Explanation: 


System Action: 


User Response: 


S—Severe error 

Disk sort’s work record exceeds the 
maximum tength allowed. 

Halt CD45 (Mode! 6) or halt 25 (Model 10 
Model 12, or Model 15) occurs. 

Refer to Appendix E to determine the 
maximum work record length. 


, 


SD160—ALTERNATE COLLATING SEQUENCE 
ASSUMED 


Code: W—Warning 

Explanation: Coiumns 26 is neither an S nor blank. 
System Action: Disk sort assumes you want an alternate 
collating sequence and continues the job. 
If you do want an alternate collating 
sequence, put an S in column 26 of your 
header fine before running the job again. 
If you do not want an alternate collating 
sequence, you can cancel the job at the 
C123 halt (Model 6) or the 22 halt (Model 
10, Model 12, or Model 15). 


User Response: 


$D161—INVALID NUMBER IN CONTROL FIELD 


Code: T—Terminal 
Explanation: There is either a nonnumeric character or 
embedded blank in columns 13-17 of the 
header line. 

System Action: The job ends. 


User Response: Correct the mistake and resubmit the job. 


$D162—INVALID NUMBER !N OUTPUT RECORD 
LENGTH 


Code: T—Terminal 
Explanation: There is either a nonnumeric character 
or embedded blank in columns 29-32 
of the header line. 

System Action: The job ends. 


User Response: Correct the mistake and resubmit the job. 


$D163—SORTA-TAPE OUTPUT, RECORD LENGTH 
NOT 18 


Code: T—Terminal 

Explanation: The record length on the output FILE 
statement is not 18. 

System Action: The job ends. 

User Response: For a tape output file during a SORTA 
(addrout) sort, the record length on the 
output FILE statement must be 18. 


SD164—SORTA—MULTIPLE INPUTS (Model 12 and 
CCP/Disk Sort) 


Code: S~Severe error 

Explanation: Addrout sort is invalid with multiple 
disk or tape files. 

System Action: The job ends after the generation phase. 

User Response: Modify your OCL to perform an 
addrout sort on a single disk or tape 
file, or merge all the files into a single 
file before performing an addrout 
sort. 


SD164—SORTA—CARD, 3741, OR MULTIPLE INPUT 
(Model 15 only) 


Code: S—Severe error 
Explanation: Addrout sort is invalid with card input, 
3741 input, or multiple disk or tape files. 
System Action: The job ends after the generation phase. 
User Response: Modify your OCL to perform an addrout 
sort on a single disk or tape file, or merge 
all the files into a single file before per- 
forming an addrout sort. 


SD165—SORTA-ASCI! TRANSLATE SPECIFIED 


Code: T—Terminal 

Explanation: If the addrout file is converted to ASCII, 
the result is an unusable file. 

The job ends. 

ASCII translate must not be specified if a 
tape addrout file is desired. 


System Action: 
User Response: 
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SD166--VERIFY OPTION ASSUMED BLANK, COLUMA 
34 








Code: We--Warning 
Explanation: Column 34 of the heater does not canis * 
dg NO a plank. Disk sort with canmteice 
the sort, and assume that you meant to: 
column 34 to be blank. Therefore ary 
writes to the work file wil be verted % 
System Action: Disk sort assumes thet YOU Want? airy 
wrifes to the werk file to be verdies: 
User Response: 1 f you desire not te have ailwietes fo 
the work tile veried, you cust cote an ian 
Nin column 34 and ierun the yob 
SD167—INVALID STORAGE S!ZE TO EXECUTE 
Code: W—Warning 
Explanation: The eniry in columns 37-38 was ob PES AUN re 
lis fark or nomsumern 
2. Less than 12 
3 Greater than 48 . 
4 Not a muftiple ao 2 
System Action: For the above cases. the f. Owing 
defaults occ ar 
+> For tems i and 2, 12 is assumed os cet ye gs is 


~ For item 3. 48 is assurnest 
~ For nem 4, the value ts saagadedd dow: 
to the next lowest mult pie at 2 
User Response: If the default is not aces Dteble enter 
the prope: vaiue anc! reso surat the toads 


SD168—MISSING OR INVALID PROGRAKI Natit 
Code: Wo Warning 


Explanation: Theentey a coiunm. 45-80 of Ge Reade 


Statement settee: Chao Gr ees aay 





brogeam aces 
System Action: The Prograre Name deiauits tu Sis TEM 
User Response: | f the default 15 ro! deceptunle, erie: tie 

COMPECL Prog i am Hatig ia ccsunins 7 BE 


and resubmit ine jab 
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RAPS e popes 


Ve SEE! IL ES (Model 10 


stax ASCH and 
w gutput files. Both 
tia fles must be the same 


seouyh the generation 
Ne lon sequence 
ovules at the end 
Hidotl 
ioooow they are the 
> SQCDIC). For 
ive GECDIC input and 
-iicsatpdit, translate the 
Holy sur the sort job. 


eesor aorta TYPE SORT 


wig GURATA (addrout) sort is 
ve oecurd Gumber. Binary 
fa surt cannot go on 





har cts alter tie generation phase. 
©. desired, output 
ask or 9-track tape. 


$0173—CONVER1 UR OR TRANSLATOR NOT 


SPECIFIED 
Code: 


Explanation: 


System Action: 
User Response: 


S—Severe error 

Either the convertor or translator must be 
specified on the FILE statement if an in- 
put or output file is on 7-track tape. 

The job ends after the generation phase. 
Specify either convertor or translator on 
the FILE statement of the input or out- 
put file that is on 7-track tape. 


$D176--INVALID ALTERNATE SEQUENCE 


STATEMENT 


Code: 
Explanation: 


System Action: 


User Response: 


S—Severe error 

You specified an alternate sequence in 
column 26 of your header line. The 
statement just read does not have 
ALTSEQOS in columns 1-8. Also it is 
not a comment statement or a valid sort 
specifications statement. 

The statement is ignored, and the job 
ends after the generation phase. 

If the statement does not belong in the 
job, delete it. If it does belong in the 
job, correct it. 


S$D177—MISSING THE ** STATEMENT 


Code: 
Explanation: 


System Action: 


User Response: 


W-—Warning 

Disk sort has read the ALTSEQ state- 
ments specified in column 18 of your 
header tine. An ** (columns 1-2) state- 
ment should follow the last ALTSEQ 
statement that precedes your inciude/ 
omit/field sort specification statements 
(1/O/F in column 6). However, the 
statement just read was an |/O/F 
statement. 

Disk sort assumes an ~* statement before 
the 1/O/F statement. 

Place an ** before the {/O/F statement 
before rerunning the job. 


SD178—ALTSEQO STATEMENT HAS INVALID DATA 


Code: 
Explanation: 


System Action: 


User Response: 


S—Severe error 

The data to alter the norma! sequence in 
the above ALTSEQ statement is in error. 
One of the 4-position groups (columns 
9-12, 13-16, etc.) does not contain a 
valid hex number (0-9 or A-F). 

The column(s) in error have been flagged 
with an * in the line printed above this 
message. Processing continues with the 
next 4-position group. The job ends after 
the generation phase. 

Correct the statement and resubmit the 
job. 


S$D179—UNEXPECTED END-OF-FILE FOUND 


Code: 
Explanation: 


System Action: 


User Response: 


T-Terminal 

Disk sort was reading your ALTSEQ 
statements. Valid statements following 
an ALTSEO statement are: another 
ALTSEO statement, a comment statement, 
or an ** statement (columns 1-2}, How- 
ever, disk sort found an end-of-file state- 
ment. (If your sequence specification 
statements are being read from the system 
reader, the program read a/*, /&, or // 
END statement.) 

Job ends at this point. No further state- 
ments are diagnosed. 

Make sure the last part of your sequence 
specifications are not missing. 


SD181—NO VALID ALTSEQ STATEMENTS FOUND 


Code: 
Explanation: 


System Action: 


User Response: 


W—Warning 

ALTSEQ is specified on the header line, 
but the system cannot find any valid 
ALTSEO statements. 

There will be no alternate collating 
sequence for this job; processing 
continues. 

If you want an alternate collating 
sequence, cancel the job at halt C123 
(Model 6) or halt 22 (Model 10, Model 
12, or Model 15), correct the ALTSEQ 
statements, and resubmit the job. If you 
do not want an alternate collating sequence, 
remove the S from column 26 of your 
header line. 
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$D202—INVALID SPECIFICATION TYPE, COLUMN 6 


Code: S—Severe error 

Explanation: The statement makes no sense to disk sort 

because it is not a comment statement, an 

include statement, an omit statement, or 

a field statement. 

System Action: Disk sort bypasses the statement. The job 
ends after the generation phase. 

User Response: This statement is either misplaced or in- 
correctly typed. Correct the statement 
and resubmit job. 


$D204—BLANK CONTINUATION ASSUMED, 
COLUMN 7 


Code: W—Warning 

Explanation: The referenced statement is the first in 
an omit or include set. However, it con- 
tains a nonblank character in column 7. 
A blank was expected. 

System Action: Disk sort ignores the nonblank character 
and processes the statement as though 
column 7 was blank. 

User Response: Correct statement before next job run. 


SD206—INVALID CONTINUATION, COLUMN 7 


Code: S—Severe error 

Explanation: The referenced statement is part of an 
include or omit set. It should have an A 
(AND) or O (OR) in coiumn 7. However, 
it does not, nor does it contain a blank 
(see message SD208). 

System Action: Disk sort bypasses the statement and 

goes on to the next statement. Job will 

terminate at end of generation phase. 

Correct the statement before running the 

job again. 


User Response: 
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SD208—OR CONTINUATION ASSUMED, COLUMN 7 


Code: W—Warning 
Explanation: The referenced statement is part at an 
include or omit set. It shouid contain an 
A (AND) or O (OR) in column 7. How- 
ever, column 7 is blank. 

System Action: Disk sort assumes you want an O in 
column 7. 

Check the order of your statements. 
Make sure you want an Q in column 7. 
if you do not, you can cancel the job at 
the C123 halt (Model 6) or the 22 halt 
(Model 10, Model 12, or Model 15). 


User Response: 


$D210—INVALID C/Z/D/P/U/V SPECIFICATION, 
COLUMN 8 


Code: W—Warning 
Explanation: Type of Column 8 
Statement Entry Should Be: 


Include or omit 


record type C.2Z,0,P,or U 

Control field 

statement! C,2,D,P.orU 

Data field or 

summary field C,Z2,D,U,PorV 
System Action: Disk sort assumes you want a € in column 

8. 


Check the character in colurniw 8 and 
correct the statement before rerunning 
this job. 


User Response: 


l For an unconditional force or a force-all tine, the column 8 entry 
must be aC. 


$D212--SPECIFICATION IN WRONG LOGICAL ORDER 


Code: 
Explanation: 


S~—Severe error 

If this is a contro! field statement (F in 
coiumn 6), it improperly follows an omit 
statement (O in column 6). I this is an 
omit statement, it improperly follows an 
include statement (I in column 6). 

This statement is bypassed and processing 
continues with next statement. The job 
ends after the generation phase. 

Put your statement in proper order and 
resubmit the job. 


System Action: 


User Response: 


$D214—-INCLUDE OR OMIT STATEMENT AFTER 
INCLUDE-ALL 


Code: 
Explanation: 


S—Severe error 

Disk sort has previously read an include- 
all statement. Now only control field 
statements (F in column 6) should be 
read. However, an include or omit (I 

or O in column 6) was just read. 

This statement and ali following state- 
ments are processed as though the include- 
all card had not been read. The job ends 
after the generation phase. 

Remove either the include-ali statement 
or the include or omit statement. Resub- 
mit job. 


System Action: 


User Response: 


SD216—LAST SET NOT A VALID INCLUDE SET 


Code: 
Explanation: 


S—Severe error 

The last set of your sequence specifica- 

tions should have been an include set. 

However, one of the following types of 

errors occurred: 

1. There were no statements after the 
header statement. 

2. The last set was an omit set. 

3. The iast set was an include set, but 
it contained no field statements. 

The job will terminate at the end of the 

generation phase. 

Make one of the following corrections 

depending upon the type of error that 


System Action: 


User Response: 


occurred: 
1. Suppiy the sequence specifications. 
2. Eliminate this omit set, because 


the records are omitted by default. 
o: Supply the missing field statements. 
Resubmit the job. 


SD218—TOO MANY SEQUENCE SPECIFICATIONS 


Code: 
Explanation: 


S—Severe error 

You have used all the main storage that was 
allocated by disk sort for the select/build 
routine and for error information. 

Disk sort reads and error checks any 
following statements, but the job ends 
after the generation phase. The area 
allocated for the select/build routine and 
error information is now used only for 


System Action: 


error information. 

Remove all causes of error messages. If 
this error occurs with no other error 
messages, decrease the number of sequence 
specifications. 


User Response: 


$D220-TOO MANY ERRORS 


Code: 
Explanation: 


T-Terminal 

The main storage that disk sort allocated 
for the select/build routine and error in- 
formation is now filled with error infor- 
mation (see message SD218). 

Disk sort will not read or diagnose any 
more statements. The job ends at this 
point. 

If your statements are being read from 
the system card input device, make sure 
you've included /* and /& statements. 


System Action: 


User Response: 


$D222—ZONE OR V FIELD-LENGTH EXCEEDS 1 


Code: 
Explanation: 


W—Warning 

The referenced statement is a field state- 
ment (F in column 6). The type specified 
is a zone field (Z in column 8) or a V field 
(V in column 8) which should have a 
length of one byte. 

The specified number of bytes (calculated 
using columns 9-12 and 13-16) is used in 
building the work record field for this 
record type. The byte of zone or overflow 
information generated is placed in the 
rightmost byte (low order byte) of this 
field. The other positions to the left con- 
tain binary zeros (contro! fields) or blanks 
(data fields). 

If you do not want a length of one byte, 
respond to the C123 halt (Model 6) or 
the 22 halt (Model 10, Model 12, or 
Model 15) with a controlled cancel (op- 
tion 2). The Halt Guide for each system 
lists all the halts and the options for each 
one. 


System Action: 


User Response: 
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SD224—COLUMNS 9-16 OR COLUMNS 20-27 ARE 
INVALID 


Code: 
Explanation: 


S—Severe error 

The location information in columns 
9-16 and/or columns 20-27 of the refer- 
enced statement is invalid for one of these 


reasons: 

12 The from location is greater than 
the to location. 

2. The to location is blank or zero. 


3: The lengths of factor 1 and factor 
2 are not the same. 

The job ends after the generation phase. 

Correct this statement and resubmit the 

job. 


System Action: 
User Response: 


SD226—DIGIT FIELD LENGTH EXCEEDS 16 


Code: 
Explanation: 


W-—Warning 

A digit field longer than 16 bytes has been 
specified in the referenced statement. 
Disk sort assumes you want a length of 
16. The job ends after the generation 
phase. 

If your digit field is longer than 16 bytes, 
divide it into two or more fields. Create 
new specifications for these fields and re- 
submit job. If your digit field is really 

16 bytes or shorter, correct the statement 
and resubmit the job. 


System Action: 


User Response: 


SD228—CHARACTER CONSTANT ~LENGTH EXCEEDS 
20 


Code: 
Explanation: 


W—Warning 

The referenced statement is an include or 
omit statement (I or O in column 6). 
Factor 2 contains a character constant 
since column 19 contains a C. The length 
implied in factor 1 (columns 8-12 and 
13-16) is greater than 20, which is the 
maximum length allowed. 

The rightmost 20 columns in factor 1 
will be compared against the constant in 
columns 20-39. 

If you do not want a 20-byte field you 
can end the job after the generation 
phase at the C123 halt (Model 6) or the 
22 halt (Model 10, Model 12, or Model 
15). 


System Action: 


User Response: 
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SD230—SAME SPECIFICATION TYPE ASSUMED, 


COLUMN 6 


Code: 
Explanation: 


System Action: 


User Response: 


W—Warning 

The referenced statement has a blank in 
column 6, so the specification type is not 
known. However, column 7 of this state- 
ment contains an A or O. The previous 
statement was either an include or omit 
statement (1 or O in column 6). 

Disk sort assumes the statement is a rec- 
ord type one with a specification type 
identical to that of the previous state- 
ment; that is, include (1) or omit (QO). 

If the statement is not a record type state- 
ment, you can cance! the job after the 
C123 halt (Model 6) or the 22 halt (Model 
10, Model 12, or Model 15). In either 
Case, correct the statement before re- 
running the job. 


$D232—ZONE SPECIFIED—FACTOR 21S NOTA 


CONSTANT 


Code: 
Explanation: 


System Action: 


User Response: 


S—Severe error 

A zone was specified in column 8 of a 
record type statement (include or omit) 
and column 19 does not have a C (con- 
stant) specified. 

Disk sort bypasses the statement. The 
job ends after the generation phase. 
Correct the statement and resubmit the 
job. 


$D234—-ZONE SPECIFIED—RELATIONSHIP NOT EQ 
OR NE 


Code: 
Explanation: 


W—Warning 

A zone has been specified in column 8 of 
the referenced record type statement {in- 
clude or omit) and columns 17-18 do not 
contain EQ or NE. 

Disk sort assumes you want EQ in columns 
17-18; processing of this statement 
continues. 

If you do want an EQ in columns 17-18, 
you can continue the job after the C123 
halt (Modet 6) or the 22 halt (Model 10, 
Model 12, or Model 15). Correct the 
column 17-18 entry in the statement 
before the next job is run. 


System Action: 


User Response: 


SD236—INVALID RELATIONSHIP, COLUMNS 17-18 


Code: 
Explanation: 


S—Severe error 

The referenced statement is a record type 
statement (include or omit) and columns 
17-18 (the relationship between factor 1 
and factor 2) does not contain an EQ, 
NE, LT, GT, LE, or GE. 

System assumes an EQ entry in columns 
17-18. The job ends after the generation 
phase. 

Correct statement and resubmit job. 


System Action: 


User Response: 


$D238--INVALID FACTOR 2 TYPE, COLUMN 19 


Code: 
Explanation: 


W—Warning 

The referenced statement is a record type 
specification (include or omit) and column 
19 contains neither an F (field) nor C 
(constant). 

Column 19 is assumed to contain a C; 
factor 2 is taken as a constant. 

Check column 19 for an invalid character 
or missing character. If you do not want 
aC in column 19 you can cancel the job 
after the C123 halt (Model 6) or the 22 
halt (Mode! 10, Model 12, or Model 15). 
In any case, you should correct the 


System Action: 


User Response: 


statement before running the job. 


SD240—UNPACKED DECIMAL—LENGTH EXCEEDS 16 


Code: 
Explanation: 


W—Warning 

The referenced statement has a U in 
column 8. Columns 8-12 and 13-16 
specify a factor 1 field longer than the 
allowable maximum of 16 bytes. 

Disk sort processes the statement with a 
length of 16. The job ends after the 
generation phase. 

Check the to and from columns and 
correct the statement before resubmitting 
job. 


System Action: 


User Response: 


SD242—ZONE SPECIF!IED—LENGTH EXCEEDS 1 


Code: 
Explanation: 


W—Warning 

The referenced statement is a record type 
specification (include or omit) with a Z 
(zone) in column 8. Factor 1 must be only 
one character long and it was not. 

A length of 1 is assumed. Column 20 in 
this statement contains the constant that 
will be processed. 

Verify that the assumption is correct. If 
it is not, you can cancel the job after the 
C123 halt (Model 6) or the 22 halt (Model 
10, Model 12, or Model 15). !n any case, 
you should correct the statement before 
rerunning the job. 


System Action: 


User Response: 
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$D244—PACKED DECIMAL—LENGTH EXCEEDS 8 


Code: 
Explanation: 


System Action: 


User Response: 


W—Warning 

Field length excessive. The P (packed) 

in column 8 dictates that the field must 
be only eight columns long (15 digits plus 
sign). 

The specified number of bytes (calculated 
from columns 9-12 and 13-16) are used in 
building the work record field for this 
record type. Eight bytes of input 
information are used; the remainder of 
the field is unpredictable. The 

rightmost eight bytes of the field are used 
for include or omit. If column 19 contains 
aC, the constant in columns 20-35 of this 
statement is used for factor 2. 

If you do not want to accept disk sort’s 
assumptions, you can cancel the job after 
the C123 halt (Model 6) or the 22 halt 
(Model 10, Model 12, or Model 15). 

In any case, you should correct the 
statement before running the job again. 


$D246--INVALID FIELD TYPE SPECIFICATION, 


COLUMN 7 


Code: 
Explanation: 


System Action: 


User Response: 
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W—Warning 

The referenced statement is a field specifi- 
cation; however, column 7 does not con- 
tain an F,N,O, DorS. 

The referenced field statement will be 
assumed as an N (normal control field) 

if there have been no previous data or 
summary data field specifications for 

this include set. Otherwise it will be 


assumed to be a D (data field) specification. 


If you do not want an N in column 7, you 
can cancel the job after the C123 halt 
(Model 6) or the 22 halt (Model 10, 
Model 12, or Model 15). In any case, 
you should correct the statement before 
running the job again. 


$D248—-ILLEGAL FORCE-ALL CONTINUATION 


Code: 
Explanation: 


System Action: 


User Response: 


S—Severe error 

The referenced statement is a field state- 
ment for a force-all specification (F in 
column 7). However, it does not foliow 
a conditional force specification as it 
should. 

Disk sort ignores the statement. The job 
ends after the generation phase. 

Correct statement and resubmit job. 


SD250—FIELD STATEMENTS IN WRONG LOGICAL 


ORDER 


Code: 
Explanation: 


System Action: 


User Response: 


S—Severe error 

The referenced statement is a control 
field specification. However, a data (D) 
or summary (S) specification was previous- 
ly specified in this include set. All control 
field statements (N, O, or F in column 7) 
must precede any data or summary data 
field specifications. 

The statement is bypassed. Processing 
continues with next statement. The job 
ends after the generation phase. 

This statement is either misplaced or in- 
correctly specified. Correct the statement 
and resubmit the job. 


$D252—CONTROL FIELD LENGTH EXCEEDS 
HEADER VALUE 


Code: 
Explanation: 


System Action: 


User Response: 


S—Severe error 

The accumulated length of control field 
statements within the current include set 
exceeds length specified in header 
statement. 

Disk sort processes all the following state- 
ments in this include set but the job ends 
after the generation phase. 

Check the length specified in header line 
against the specified control fields. Cor- 
rect the errors and resubmit job. 


$D254—-CONTROL FIELD LENGTH LESS THAN 
HEADER VALUE 


Code: 
Explanation: 


W--Warning 

The accumulated length of contro! fields 
specified for this include set is less than 
length specified in header statement. 

All control field statements have been 
processed for this include set. The re- 
maining positions are filled with binary 
zeros. 

You can continue the job after the C123 
halt (Model 6) or the 22 halt (Model 10, 
Model 12, or Model 15). Check control 
field length in header line before running 
the job again. 


System Action: 


User Response: 


SD256—CHARACTER FIELD SPECIFICATION— 
LENGTH EXCEEDS 256 


Code: 
Explanation: 


S—Severe error 

The referenced statement is a character 
field specification (C in column 8). A 
length of more than 256 has been specified 
on this statement. 

The job continues through the generation 
phases to diagnose the sort sequence 
specifications but terminates at the end 
of the generation phases. 

If you require more than 256 positions 
of data, split the field into more than one 
field specification statement. 


System Action: 


User Response: 


§D258--TO OR FROM FIELD NOT WITHIN INPUT 
RECORD 


Code: 
Explanation: 


S—Severe error 

Either or both specifications in the to 

or from columns are zero or contain a 
value larger than your input record length. 
This job ends after the generation phase. 
Check to make sure you have the desired 
input file. Also check that the from and 
to columns contain the desired values. 


System Action: 
User Response: 


SD262—DATA LENGTH EXCEEDS HEADER VALUE 


Code: 
Explanation: 


S—Severe error 

The data field specifications (columns 6 
and 7 contain FD or FS) for this include 
set now exceed your data length value. 

A SORTR or SORTRS job was specified. 
If you are dropping the control field 
(column 28 of the header line contains an 
X), the data length is the output record 
length (columns 29-32 of the header line). 
If you are not dropping the contro! field, 
the control field length (columns 13-17 
of the header line) must be subtracted 
from the output record length to get the 
data field length. 

The job ends after the generation phase. 
There is an error in either the output 
record length in header line or the to 

and from fields in the field description 
lines. Correct the error and resubmit the 
job. 


System Action: 
User Response: 


SD264—SPECIFICATIONS IN WRONG NUMERICAL 
ORDER 


Code: 
Explanation: 


W—Warning 

Columns 1-5 of each sequence specifica- 
tion statement are used to order the state- 
ments. One or more of the statements 
has a value in columns 1-5 that is less 
than the preceding statement. Disk sort 
prints an S to the left of the statements 
that are out of order. 

Disk sort assumes the specification state- 
ments are in the order you want. 

Check the order of the sequence specifica- 
tions. If they are out of order, respond 
to the C123 halt (Model 6) or the 22 halt 
(Model 10, Model 12, or Mode! 15) 

with option 2. (The Halt Guide for 

each system explains the options fol- 
lowing each halt.) 


System Action: 


User Response: 
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SD266—FACTOR 1 LENGTH EXCEEDS 256 


Code: 
Explanation: 


System Action: 


User Response: 


S—Severe error 

The referenced statement is an include or 
omit specification for character data 
{column 8 contains aC). Factor 1 isa 
field (column 19 contains an F). The 
length of factor 1 exceeds 256 bytes. 
Disk sort assumes a factor 1 length of 
256 but ends the job after the generation 
phase. 

Break this statement into two specifica- 
tions with an AND continuation line (put 
an A in column 7). 


SD268—P OR U FACTOR 1 USED WITH ALTSEQ 


Code: 
Explanation: 


Systern Action: 


User Response: 


W—Warning 

The referenced include or omit record 
type statement specifies a packed or 
unpacked factor 1 and an alternate collat- 
ing sequence is specified in the header 
statement. 

Factor 1 and factor 2 are changed as in- 
dicated by the ALTSEQ statements. This 
change may affect the units position (and 
sign) of an unpacked decimal number or 
any one position of a packed decimal 
number. If it does, you may not include 
or omit the desired records. 

Do not use P or U column 8 record type 
entries when you specify an alternate 
collating sequence. 


SD269—PACKED FIELD USED WITH 96-COLUMN 
INPUT (Model 15 only) 


Code: 
Explanation: 


System Action: 


User Response: 


W—Warning 

96-column cards can contain only the 
System/3 64-character set. Packed data 
cannot be contained on a 96-column card. 
A 22 halt is issued at the end of the 
generation phase. 

Verify that you are not trying to retrieve 
packed data from a 96-column card. The 
use of include sets may be necessary when 
using 96-column card input. 


SD270—INVALID SPECIFICATION WiTH TRANSLATE 


ON 


Code: 
Explanation: 


System Action: 
User Response: 


S—Severe error 

If input is on 7-track tape with TRANS- 
LATE-ON, include, omit, or field specifica- 
tions with packed data are not allowed. 
If output is on 7-track tape with TRANS- 
LATE-ON, field specifications with 
packed data are not allowed. 

The job ends after the generation phase. 
Either correct the invalid specifications, 
change the output file to a 9-track tape 
file, or change the input file to a 7-track 
tape file with CONVERT-ON specified. 


$D271—INVALID SPECIFICATION UNLESS CONTROL 
FIELD DROPPED 


Code: 
Explanation: 


System Action: 


User Response: 


S—Severe error 

The control field is a normal packed or 
unpacked field, or an opposite packed, 
unpacked, zone, or character field. All 
of these control fields are modified by 
the disk sort program and will contain 
meaningless data. 

The program ends after the generation 
phase. 

Indicate that the control field is to be 
dropped (code an X in column 28 of the 
header statement) and repeat (as a data 
field) any of the control fields you want 
in the output record. 


SD276—MORE THAN ONE SUMMARY V FIELD IN 


INCLUDE SET 


Code: 
Explanation: 


System Action: 


User Response: 


W—Warning 

This is aSORTRS job. The referenced 
statement specifies a summary V field 
(FSV in columns 6-8). At least one other 
summary V field has already been speci- 
fied for this include set. 

A data V fieid is assumed (FDV in 
columns 6-8). 

Change the extra summary V field(s) to 
data V fields before ruining the job again. 


$D278—SUMMARY V OR DATA FIELD INCONSISTENT 


Code: 
Explanation: 


System Action: 


User Response: 


W—Warning 

This is aSORTRS job. The referenced 

statement is a summary data field specifi- 

cation (S in column 7). Compare this 

specification with the first include set 

having S specifications; one of the follow- 

ing is true: 

@ The number of S specifications prior 
to this specification differs. 

@ The length of this S specification 
differs. 

® The substitution character of this V 
specification differs. 

@ The relative location of the specifica- 
tion within the output record differs. 

The S specifications of the first include 

set having S specifications are used to 

actually define the summary field 

positions. 

A C123 halt (Model 6) or a 22 halt (Model 

10, Model 12, or Mode! 15) will occur at 

the end of the Generation Phase. Check 

carefully to assure that the first include 

set with S specifications is correct. If 

not, correct and take a 2-option (con- 

trolled cancel). 


SD280—NUMBER OF SUMMARY FIELDS 


INCONSISTENT 


Code: 
Explanation: 


System Action: 


User Response: 


W—Warning 

This is aSORTRS job. The total number 
of S specifications in this include set 
differs from the first include set having 
an S specification. 

The S specifications of the first include 
set having S specifications are used to 
actually form the summary output 
records. 


A C123 halt (Model 6) or a 22 halt (Model 


10, Model 12, or Model 15) will occur at 
the end of the generation phase. Check 
carefully to assure that the first include 
set with S specification is correct. If not, 
correct and take a 2-option (controlled 
cancel). 


SD282—NO SUMMARY SPECIFICATIONS FOUND— 


SORTRS JOB 


Code: 
Explanation: 


System Action: 


User Response: 


W—Warning 

A SORTRS job (summary tag along sort) 
was specified on the header statement 
for this job. However, no summary data 
field specifications were found in the 
statements for this job. 

All records with duplicate control fields 
will be eliminated from the output file. 
Check the job type to be sure that 
SORTRS was intended 


S$D284—SUMMARY SPECIFICATIONS FOUND—- 


SORTR JOB 


Code: 
Explanation: 


System Action: 


User Response: 


W--Warning 

This isa SORTR job. A summary data 
field specification (columns 6 and 7 con- 
tain FS) is expected only for SORTRS 
jobs. At least one S specification was 
found for this job. 

Ail S specifications are treated as data 
specifications (column 7 contains a D 
rather than an S). 

Check to assure that a SORTRS job 
was not wanted. 


SD286—TOO MANY SUMMARY DATA FIELDS 


Code: 
Explanation: 


System Action: 
User Response: 


S—Severe 

This is aSORTRS job. More than 24 
summary data fields (FS in columns 6 

and 7 and C, D, P, or U in column 8} have 
been specified. 

The job will end after the generation phase. 
Limit the number of summary data fields 
to 24 or less. 
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SD288—INVALID SORTRS SPECIFICATION— 
COLUMNS 20, 21, 22 


Code: 
Explanation: 


System Action: 


User Response: 
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W--Warning 

The overflow field length in columns 20- 
22 is invalid, not right-justified, or less 
than the field tength given by to and from 
entries for this specification. 

Disk sort assumes that no entry was made 
in columns 20-22. 

If a valid entry was meant for columns 
20-22, cancel the job (C123 Halt—Model 
6 or 22 halt~Model 10, Model 12, or 
Model 15), correct entries, and rerun 

the job. If no entry was meant for 
columns 20-22, the job will run but 
warning message will continue until 

error is corrected. 


$D301—TAPE VARIABLE LENGTH BLOCK SPECIFIED 


Code: 
Explanation: 


T—Terminal 

Variable length blocks are not allowed on 
input files. Your input F!LE statement 
is incorrect. 

The job ends. 

Disk sort accepts only fixed length block 
files from tape. Specify fixed block files 
on the FILE statement. 


System Action: 
User Response: 


S$D302—RECL AND/OR BLKL NOT SPECIFIED 


Code: 
Explanation: 


T—Terminal 

RECL and BLKL must be specified for a 
tape file on the FILE statement. 

The job ends. 

Specify RECL and BLKL and resubmit 
the job. 


System Action: 
User Response: 


SD303—HEADER AND TAPE OUTPUT LENGTH 
DISAGREE 


Code: 
Explanation: 


T-—Terminal 

The output record length specified on the 
output FILE statement and the output 
record length specified on the sort header 
statement are not the same. 

The job ends. 

Both record lengths (output FILE state- 
ment and sort header statement) must 
agree. 


System Action: 
User Response: 


$D391—MAIN STORAGE ALLOCATED TOO SMALL 


Code: 
Explanation: 


System Action: 


User Response: 


T—Terminal 

The amount of main storage assigned to 
disk sort is not large enough to handle 

the job. On the Model 15, this halt can 
occur if the system was not generated 
with the support needed for a particular 
device such as tape, 5445, or card support. 
For CCP/Disk Sort, this occurs when the 
work record length is less than three bytes. 
This halt can also occur when a CCP/Disk 
Sort module is missing from the pack on 
which the CCP/Disk Sort resides. 

This sort job cannot run. The CD45 halt 
(Model 6) or 25 halt (Model 10, Model 12, 
or Model 15) cancels the job. 

Make sure you have the right input file. 
Check the SORTR or SORTRS output 
length specified in your header line if 

this is a tag along sort. Also check that 
the total number of bytes reserved for 

the sequence specifications (message 
SD461) does not exceed the recommend- 
ed amount (see Appendix D). In addition, 
make sure there are no entries in positions 
35-39 of the header statement (reserved 
for system use). 


For CCP/Disk Sort, if the work record 
length is fess than three bytes, then 
increase the control field record Jength 
or the output record length. 


Ensure that all the CCP/Disk Sort modules 
are on the pack. 
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SD395—NOT ENOUGH SPACE FOR WORK FILE 


Code: 
Explanation: 


T—Terminal 
Disk sort automatic work file allocation 


SD398—WORK FILE EXTENTS NOT USEABLE 


Code: 
Explanation: 


T—Terminal 
None of the track extents specified on 


System Action: 
User Response: 
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is being used. One or more of the follow- 


ing situations has occurred: 


1. 


The disk packs that are currently 
online cannot be used for work 
space because they contain multi- 
volume offline files or because a de- 
ferred mount is requested. 


2. No work space is available on the 
online disk packs. 

3. No work space is available on the 
disk packs indicated on the SWITCH 
statement (Model 12 and Model 15). 

The job ends. 


To make more scratch space available, 
perform one of the following: 


1. Delete unnecessary files on the on- 
line disk packs (preferably the fixed 
units). 

2. Mount a removable pack that has 
enough scratch space available. 

3. Remove or modify the SWITCH 


statement (Model 12 and Model 15). 


System Action: 
User Response: 


the work FILE statement are large enough 
for a work block. 

The job ends. 

Increase the number of tracks on the 
work FILE statement so that the extents 
will be large enough to hold a work block. 


$D401—JOB COMPLETED GENERATION PHASE 


Code: 
Explanation: 


|--Intormation 

This job has completed the generation 
phase. All diagnostics have been checked 
- for errors. 

If severe errors were found, message SD425 
and halt CD45 (Model 6) or halt 25 (Model 
10, Mode! 12, or Mode! 15) follow. If 
warning errors were fourid message SD422 
and halt CD123 (Mode! 6) or halt 22 
(Model 10, Model 12, or Model 15) follow. 
If no errors were found, the job proceeds 
to the execution phase of disk sort. 
Review subsequent messages. 


System Action: 


User Response: 


$D402—NO ERRORS FOUND 


Code: 
Explanation: 


1—Information 

No errors were found in the generation 
phase of disk sort. 

System Action: Processing continues to the execution 
phase. 


User Response: None. 


$D403—OPERATOR CHOSE TO CANCEL JOB 


Code: 
Explanation: 


|—Information 

Message SD422 with halt CD123 (Model 

6) of halt 22 (Model 10, Model 12, or 
Model 15) was just given. The warn- 

ing error was not expected, so the operator 
chose to cancel the job. 

System Action: 
User Response: 


Processing ends. 
Correct the errors and resubmit the job. 
$D404—OPERATOR CHOSE TO CONTINUE JOB 


Code: 
Explanation: 


1~-Information 

Message SD422 with hait CD123 (Model 
6) or halt 22 (Model 10, Modei 12, or 
Model 15) was just given. The warning 
errors were expected, so the operator 
chose to continue the job. 

System Action: Processing continues to the execution 
phase. 


User Response: None. 


$D422—XXX WARNING ERRORS HAVE BEEN FOUND 
0—OK, CONTINUE 
2—NOT EXPECTED, CANCEL 


Code: 
Explanation: 


A—Action 

No severe or terminal errors were found 
in the data supplied in your sequence 
specification statements. However, warn- 
ing errors were found. 

Halt C123 (Model 6) or halt 22 (Model 10, 
Model 12, or Model 15) occurs. 

The operator should review the warning 
errors on the listing to decide what action 
to take, and then respond to the halt with 
option 0 (OK—continue the job) or op- 
tion 2 {errors not expected—cancel the 
job). 


System Action: 


User Response: 


S$D423—PERMANENT I/O ERROR READING 
SPECIFICATIONS 


A—Action 

A permanent I/O error has occured dur- 
ing the reading of your sort sequence 
specifications statements. 

This disk sort job cannot continue. Halt 
CD3 (Model 6) or halt 23 (Model 10, 
Model 12, or Model 15) occurs. 

Option 3—!mmediately cancel this job. 
Resubmit job. If error persists, contact 
IBM for hardware support. 


Code: 
Explanation: 


System Action: 


User Response: 


S$D425—-SEVERE AND/OR TERMINAL ERRORS 
FOUND 


Code: 
Explanation: 


A—Action 

Severe and/or terminal errors were found 
during the generation phase of disk sort. 
This job cannot continue. Halt CD45 
(Model 6) or halt 25 (Model 10, Model 
12, or Model 15) occurs. 

Option 3—!mmediately cancel this job. 


System Action: 


User Response: 
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SD450—XX,XXX MAIN STORAGE BYTES ASSIGNED 


Code: t—Information 
Expianation: This is the size of main storage in which 
disk sort has been assigned to run. 
System Action: None. 


User Response: None. 


$D451--XXXX BYTES—INPUT FILE RECORD LENGTH 


Code: {—Information 

Explanation: This is the input record length. 
System Action: None. 

User Response: None. 


SD452—-XXXX BYTES—WORK FILE RECORD LENGTH 


Code: |~Information 
Explanation: This 15 the record length for your work 
file. It was computed trom the intorma- 
tion on your header line. 

System Action: None. 

User Response: None. 


$D453—XXXX BYTES—OUTPUT FILE RECORD 
LENGTH 


Code: {—Information 

Explanation: This is the record fength for your cutout 
tile. This information is taken fram you 
header tine. 

System Action: None. 

User Response: None. 
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St454--XXXX BYTES—INPUT FILE BLOCK LENGTH 


ede !--information 

&Expianation: This is the block length for your input 
file. This information is taken from your 
input FILE statement. 

System Action: None. 

User Response: None. 


“D455 XXX BYTES--OUTPUT FILE BLOCK LENGTH 


Code: !~—Information 

This is the block length for your output 
file. This information is taken from your 
output FILE statement. 

System Action: None. 


it xplanation: 


User Response’ None. 


SL461-XXXX BYTES-~-SELECT/BUILD ROUTINE 


Coun: i~information 

rhe sequence specifications for this job 
(including alternate collating statements, 
tf specified) will use the specified number 
of bytes of main storage. 

System Action: None. 


mxianation: 


User Resoonse None. 


5D452 -XXX SEQUENCE SPECIFICATION 
STATEMENTS PROCESSED 


Coe i--Information 

This is the number of sequence specifica- 
tions statements (processed by the genera- 
tion phase) in your job. 

System Action: None. 


Exmanaion 


User Kesponse: None. 


SD500—5445 FEATURE NOT AVAILABLE (Model 10 
only) 


Code: T-—Terminal 

Explanation: An attempt has been made to use a 5445 
disk; however, the IBM System/3 Disk 
Sort 5445 Disk Storage Drive Feature is 
not on the program pack. 

System Action: The job ends. 

User Response: Either specify another device type or per- 
form system generation with Disk Sort 
5445 support. 


S$D501—DISK SORT TAPE SUPPORT NOT AVAILABLE 
(Model 10 only) 


Code: T—Termina! 

Explanation: An attempt has been made to use tape 
input or output; however, 1BM System/3 
disk sort tape support is not on the pro- 
gram pack. 

System Action: The job ends. 


User Response: Either specify another device type or per- 


form system generation with disk sort 
tape support. 
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SD600—XX—FIRST PASS—#0 PASS—STARTED 


Code: 
Explanation: 


I—Information 

The execution phase of your job has 
begun. Records are being copied from 
the input file to the work file (XX = 
execution phase). 


System Action: None. 

User Response: None. 

SD601—#XX PASS COMPLETED NNN 
Code: 1—Information 


Explanation: 


System Action: 


User Response: 


This is simply status information. [t tells 
you that pass #XX has just been success- 
fully completed. (The first pass #00, the’ 
second pass is #01, etc.) 

NNN is design information for the 

Model 15 (5704-SM9Q). For further 
explanation, see the diagnostic aids in 
the /BM System/3 Disk Sort Program 
Logic Manual, LY21-0517. 

None. 

None. 
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SD602—XXXXXX INPUT RECORDS WERE READ IN 


Code: 
Explanation: 


System Action: 
User Response: 


|—Information 

Number of records read trom the input 
file. 

None. 

None. 


SD603—NNNNNN RECORDS WERE SELECTED TO BE 


SORTED 


Code: 
Explanation: 


System Action: 
User Response: 


| -information 

How many of the records just read in are 
going to be sorted. 

None. 

None. 


SD605—CCP DATA TRUNCATED 


Code: 
Explanation: 


System Action: 
User Response: 


l—Information 

More than 80 bytes of data were passed o1 
entered for the chain request. Only the 
leftmost 80 bytes of data were retained, 
the remainder was truncated. 

None. 

Review your task chain request to deter: 
mine the impact of the truncation. 


SD607—RELEASE/TASK CHAIN UNSUCCESSFUL 


Code: 
Explanation: 


System Action: 


User Response: 
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|--Information 

The Release and Task Chain request 
could not be completed. Column 39 

of the header statement contains a T 
indicating Release and Task Chain, but 
the sort program received control from 
the console or from a Task Chain. 

A Task Chain operation will be 
attempted. 

Check column 39 of the header statement 
and review your Release and Task Chain 
request. If symbolic files are used, the 
symbolic file reference will be lost. 


SD62C—NO INPUT RECORDS WERE SELECTED TO BE 


SORTED 


Code: 
Explanation: 


Maan Baetanc 
User Respanse 


S68) 


Code: 


Explanation: 


System Action: 


User Response: 


A—Action 

Ot the number of input records spec. fied 

in message SD60Z, none of them met the 
INCLUDE requirements Gf vour sort 
sequence specifications 

Halt C1234 (Model 6) or halt 2C (Model 10, 
Model 12, or Modet 15} occurs. 

fake option G to continue the job and 
create a null output file or take option 3 
(immediate cance!!. Review vour sequence 
specifications in light of the records actual 


lyon your input file. 


WORK RECORD COUNT iN ERROR 


T—Terminal 

Disk sort internal error. 

The job terminates. 

Collect pertinent information and contact 
iBM for programming support. 


$D690-—-DiSK SORT STARTING FINAL PASS 


Code 
Explanation’ 


System: Action 
User Response 


SDEN0 


Code: 


Explanation 


System Action. 


User Response: 


i information 

The tinal pass of this sort job has begun, 
Records are being written on your output 
file. 

None 

None. 


TASK CHAIN UNSUCCESSFUL 


t--Information 

The task chain reauest could not be 
completed. 

None. 

Ensure that your task chain request 16 
correct, and determine the impact of an 
unsuccessful chain on your job stream. 


SD691-—-FINAL PASS SUCCESSFULLY COMPLETED 


Code: !—Information 

Explanation: The last pass of this sort was just success- 
fully completed. 

System Action: None. 

User Response: None. 


SD692—XXXXXX SORTED RECORDS PLACED ON 
OUTPUT FILE 


Code: |—Information 

Explanation: The last pass of this sort was just success- 
fully completed. The output record selec- 
ted and generated from the input records 
have been sorted and placed on your out- 
put file. 

System Action: None. 

User Response: None. 


SD693—-NO INPUT RECORDS FOUND 


Code: A—Action 

Explanation: No records were found in the input file. 
System Action: Halt C1234 (Model 6) or halt 2C (Model 
10, Model 12, or Model 15) occurs. 
Check input file to ensure that it is the 
proper file and contains records you want 
to sort. Take option 0 to continue the 
job and create a null output file or take 
option 3 (immediate cancel). 


User Response: 


SD694—XX PASSES REMAINING NNN 
Code: 1—Information 
Explanation: This is the number of passes remaining until 


job completion. NNN is design information 
for the Model 12 and Model 15. For further 
explanation, refer to the diagnostic aids in 
the /BM System/3 Disk Sort Program Logic 
Manual, LY21-0517. 

System Action: None. 

User Response: None. 


SD695—X XXX USED FOR WORK FILE 


Code: |—Information 

Explanation: This is the number of tracks of work file 
used in this sort. 

System Action: None. 

User Response: None. 
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$D711—MOUNT OUTPUT TAPE 


Code: 
Explanation: 


System Action: 
User Response: 


A—Action 

The output tape is not required until the 
intermediate merge passes are done. 

The program halts. 

Mount the tape. tf the output file uses 
the same tape drive as the input file, re- 
move the input file and replace it with 
the output file reel. Do not reply to the 
halt until the output file reel is mounted. 


SD901—*****NORMAL EQJ***** 


Code: 
Explanation: 
System Action: 
User Response: 


|—tnformation 

The sort job has been completed. 
None. 

None. 


SD902—***** ABNORMAL EQJ***** 


Code: 
Explanation: 


System Action: 
User Response: 


|~Information 

Errors have prevented the sort job from 
being run. 

None. 

Review previous messages, correct errors, 
and resubmit job. 


SD928—INPUT FILE PERMANENT 1/O ERROR 


Code: 
Explanation: 


System Action: 


User Response: 
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A—Action 

A permanent, unrecoverable I/O error has 
occurred during the reading in of records 
from your input file. 

The job cannot continue. Halt C125 
(Model 6) or halt 28 (Model 10, Model 
12, or Model 15) occurs. 

Option 3 (immediate cancel). Resubmit 
the job. If error persists, contact IBM for 
hardware support. 


SD929—WORK FILE PERMANENT 1/O ERROR 


Code: 
Explanation: 


System Action: 


User Response: 


A—Action 

A permanent unrecoverable !/O error has 
occurred during the reading of records 
from your work file. 

The job cannot continue. Halt CD4 
(Model 6) or halt 29 (Model 10, Model 
12, or Model 15) occurs. 

Option 3 (immediate cancel). Resubmit 
the job. If error persists, contact IBM 
for hardware support. 


SD92A—OUTPUT FILE PERMANENT 1/0 ERROR 


Code: 
Explanation: 


System Action: 


User Response: 


A—Action 

A permanent unrecoverable 1/O error has 
occurred writing to your output file. 

The job cannot continue. Halt CD34 
(Model 6) or halt 2A (Model 10, Model 
12, or Model 15) occurs. 

Option 3 (immediate cancel) or option 2 
(controlled cancel). Resubmit the job. 

If error persists, contact 1BM for hardware 
support. 


SD92D—SORT TASK CHAIN ATTEMPT FAILED 


Code: 
Explanation: 


System Action: 
User Response: 


A—Action 

After executing a CCP/Disk Sort 
program, the attempt to chain to the next 
task was not successful. Either not 
enough task chain queues were specified 
in the assignment set, or there is 
insufficient TP buffer space. 

Message 2D (Model 15, 5704-SM7 only) 
Option 1 (retry). Attempt to execute 
the task chain again. Option 2 
(controlled cancel). The next program 
must be initiated by the operator. 


SD92E~—WORK FILE TOO SMALL 


Code: 
Explanation: 


System Action: 


User Response: 


A—Action Code: 

While building the work file, disk sort Explanation: 
ran out of space. 

The job cannot continue. Halt C1245 

(Model 6) or halt 2E (Model 10, Model 

12, or Model 15) occurs. 


Option 3 (immediate cancel). Allocate System Action: 


more tracks for the work file, and resub- 


mit the job. If automatic work file User Response: 


allocation is being used, you can make 
more work area available by deleting un- 
necessary files (preferably on the fixed 
units), or by mounting a pack having ade- 
quate work area available. If automatic 
work file allocation is not being used, you 
can make more work area available by us- 
ing a file statement designating adequate 
work area. 


S$D92F—OUTPUT FILE TOO SMALL 


A—Action 

When calculating the number of tracks 
needed for the output file, disk sort 
found that the output file was too small, 
or while writing to the output file, disk 
sort ran out of space. 

Halt CD2 (Model 6) or halt 2F (Model 10, 
Model 12, or Model 15) occurs. 

Option 1 (controlled cancel). If the halt 
occurs prior to the intermediate passes of 
the sort, another halt will be likely to 
occur in the later phases. A 1-option will 
allow the sort to take place and records 

to be put on the output file until no more 
space is available. Option 3 (immediate 
cancel). Either allocate more tracks for 

a disk output file or use a larger tape reel 
or multireel for a tape output file. Resub- 
mit the job. 
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Appendix G. Instructions for Executing the Disk Sort Sample Program 


When you receive the disk sort program, perform the follow- 


ing installation procedures: 


if you received the disk sort program with the system 
control programs and have performed the program 
product generation during system generation, go to 
step 3. 


For your system, perform the operations for Program 
Product Generation and Completing System Genera- 
tion described in the Operator’s Guide 


You should now verify that the disk sort program is 
operational by executing the disk sort sample pro- 
gram. General operating procedures for disk sort may 
be found in the Operator’s Guide. To execute the 
sample program, perform the procedure under Sample 
Program, to execute it on the Model 6, perform the 
procedure under Sample Program for Model 6. 


Note: There is no sample program for CCP/Disk Sort. 


Sample Program for Model 6 


For the Mode! 6, the disk sort sample program is a procedure 


on the distribution disk cartridge. 


Mount distribution disk cartridge on R1 and set the DISK 
DRIVE 1 ON/OFF SWITCH to ON. When the disk drive 
is ready for use, move PROGRAM LOAD switch to ON. 


You must now respond to the keywords that appear on the 
data entry keyboard. 
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Keyword 


DATE— 


READER— 


READY— 


LOAD 


DATE 


SWITCH 


FILE 


NAME— 


UNIT— 
(mm/dd/yy)— 
(00000000) — 


NAME— 


UNIT— 


PACK— 


LABEL— 
RECORDS— 
TRACKS— 
LOCATION— 
RETAIN— 


DATE- 


Your Keyboard Response 
mmddyy (current month, 
date, and year) and press 
PROG START. 

Press PROG START. 


LOAD and press PROG 
START. 


$D$SPL and press PROG 
START. 


R1 and press PROG START. 
Press PROG START. 
Press PROG START. 


INPUT and press PROG 
START. 


R1 and press PROG 
START. 


Enter the proper pack 
identification and press 
PROG START. 

Press PROG START. 

Press PROG START. 

1 and press PROG START. 
Press PROG START. 


T and press PROG START. 


Press PROG START. 


Keyword 


FILE NAME— 

MODIFY 

READY— 

CALL NAME-— 
UNIT— 


Your Keyboard Response 
Press PROG START. 
RUN and press PROG 
START. $G RECL-0096, 
REC#-000064 and press 
PROG START. 


CALL and press PROG 
START. 


$DS$SP1 and press PROG 
START. 


R1 and press PROG START. 


These are all the responses that you must make. When the 
sorted file is printed, the records should be in descending 
order in columns 10-15. When the READY keyword appears, 


the sample program has ended. 


Sample Program for Model 8, Model 10, Model 12, and 
Model 15 


For the Model 8, Model 10, Mode! 12, and Model 15, the 
disk sort sample program is a procedure on the distribution 
disk cartridge. 


With the system on F1, mount distribution disk cartridge 
on R1 and set the DISK DRIVE 1 ON/OFF SWITCH to ON. 
The READY light indicates when the disk drive is ready for 
use. If the system input device is other than the MFCU, 

set the ADDRESS/DATA switches as required. Set the 
PROGRAM LOAD SELECTOR to REMOVABLE DISK. 
Press PROGRAM LOAD, and enter the following 

statements via your system input device. 


// DATE mmddyy 

// LOAD $D$SPL, R1 

// FILE NAME-INPUT, UNIT-R1, PACK-XXXXXX, 
TRACKS-1 

// RUN 

$G RECL-0096, REC #000064 

/& 

// CALL $D$SP1, R1 

// RUN 


where 
mmddyy = correct date. 
XXXXXX = proper pack identification. 


These are all the entries that you need to make. As the 
sorted file is printed, the records should be in columns 10- 
15. The READY light indicates that the sample program 
has ended. 


For the Model 8 or Model 10, EJ is displayed when the 
file to be sorted has been built. To continue with the 
sort job, press console START or, if you have DPF, the 
program 1 HALT/RESET key. 
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Appendix H. CCP/Disk Sort Specifications Differences 


This appendix is designed as a reference guide for the 
following System/3 CCP/Disk Sort users: 


@ Model 4, Program Number 5703-SM2 


® Model 15, Program Number 5704-SM7 


CCP/DISK SORT OVERVIEW 


The !BM System/3 CCP/Disk Sort Program is a disk-resident 
program which sorts a data file into either ascending or 
descending sequence. The sorting is executed under the 
control of the Communications Control Program (CCP) on 
System/3 Models 4 or 15. Any disk file organization sup- 
ported by the System/3 disk system management may be 
used as input to the sort. This includes indexed, direct, 

and sequential files. 


The user supplies OCL statements and sort specifications 

to the CCP/Disk Sort generator program (S$DGSRT). 
SDGSRT does not run under control of CCP; rather, it 
generates an object program that can later be executed 

as a user task under CCP control. This same object program 
can also execute in a batch mode, rather than under CCP. 
In order to execute the object program, either in batch 
mode or under CCP, the entire CCP/Disk Sort Program 
($DG.ALL) must be present on the program pack during 
generation and execution. 


The CCP/Disk Sort Program requires the use of the Overlay 
Linkage Editor during the generation phase. The Overlay 
Linkage Editor must reside on the same pack on which the 
CCP/Disk Sort Program resides. 


OCL statements for SDGSRT can be supplied from the 
system input device or from a procedure library member. 
Sort specifications can be supplied from the system input 
device, from a procedure, or from a source library member. 


A listing of the sort specifications and informational 
messages is optional. (See column 27 in Chapter 3.) When 
requested, they are listed on the printer only if log on is 
specified. 


The number of sort specifications may be more limited 
when generating a CCP/Disk Sort program because it must 
run ina minimum of 12 K bytes of main storage. 
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FILE STATEMENT CONSIDERATIONS 


For CCP/Disk Sort generation, the FILE statements for 
input, work, and output are needed to provide the 
LABEL parameters. The LABEL parameters are used as 
the file NAME for the object program execution. This is 
done so that multiple sorts can be executed ina single 
CCP session. 


If any of the sort files (input, work, and output) are 
physically ontine during generation, the FILE statement 
must be valid for that file. 


lf the sort file is not online the FILE statement must 

still be syntactically correct and contain a TRACKS 
Parameter and a valid LABEL parameter. The UNIT and 
TRACKS parameters do not have to be the actual values 

to be used when running the sort, but they must be present. 
The UNIT parameter cannot specify a nonremovable unit. 


$SOURCE and $WORK files must be provided for the 
generation of the object module, and both files must 
reside on a 5444 simulation area. 


Multiple Input Files (Model 15 only) 

Input can be from either of the foliowing devices: 
®@ 3340 Direct Access Storage Facility 

@ 3344 Direct Access Storage 


Up to eight files can be used as input using any combination 
oi the preceding devices. The fie nares for geciahion must 
be INPUT or INPUT1 (but not both}, INPUT2, iNPUT3. 
INPUT4, INPUTS, INPUT6, INPUT7, and/or INPUT8!. 


The files are processed INPUT (or iINPUT1) seriaity to 
INPUTS regardless of the order of the OCL FILE state- 
ments. The lowest numbered input file is processed fully 
first, then the next numbered input file will be processed 
in its entirety, then the next until all the tiles have been 
individually processed in sequence. For a particular disk 
sort run, the input files do not have to be numbered 
serially; that is, the file names may be INPUT3, INPUTS. 
and INPUT8!, ora particular run could have just INPUT8 
as the input file. 


Note: The record tengths of ali disk files must be the same. 
Also note that the UNIT parameter is used. 


i The LABEL parameters are used as the file NAME for the 
object program execution. 


Output File Over Input File Considerations for Model 4 


I 
| Output Over Input? | 
No 


| Sequential Yes 


a = Sees eet aS 
| Note: Addrout sort is recommended. 












(f Input File Is 
Direct (See Note) 
| Indexed (See Note) 
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Work Record Length 


Work record lengths cannot be less than three bytes. This 
means that the length of the sort control field, plus the 
length of the data fields (if any}, must be three bytes or 
greater. If the work record length is less than three bytes, 
6 Gagriosuc message (SO3S1) wii be issued during sort 
generation and the sort cannot be executed. Hf necessarv, 
specify a minimum 3-byte control field which you can 
Jip (Xx ii column 28 of the header statumenc) at output 
time. Be careful, there may be data in portions of the 
control field that may be required in the output record. 


Note: The work record length discussed is not the value 
specified in the CCP DISKFILE statement. The record 
length specified in the DISKFILE statement for the work 
file must always be 256. 
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CCP/Disk Sort Object Program Generation Job Stream 


Example 


// LOAD $DGSRT,unit 


// FILLE NAME-SSOURCE,TRACKS-10,... 


// FILE NAME-SWORK,TRACKS-10, . .. 


5 | 
8 | 


// FILE NAME-OUTPUT,LABEL-SAMPOT, . 


// RUN 


(header specification) 


(record type specifications) 


(field specifications) 


/* (end of file) 
Use either 


statement 
// END 





1 $DGSRT is the CCP/Disk Sort module name. 


| 2 | The unit parameter specifies the pack on which 
the CCP/Disk Sort program resides. The codes 
are F1, R1, F2, or R2. 


EI} The COMPILE statement is valid for the Model 
15 0nly. The OBJECT parameter specifies the 
unit on which the object program is to be 
catalogued. 


oO The overlay linkage editor requires that the 
$SOURCE and $WORK files be 10 tracks. 
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// COMPILE OBJECT-XX, (LINK ADD-8000) 





// FILE NAME-INPUT,LABEL-SAMPIN, . . . (file description) 


// FILE NAME-WORK,LABEL-SAMPWK, .. . (file description) 


. . (file description) 





EE The LABEL keyword identifies the actual input 


file name at execution time (infile — see item 
of CCP Assignment Set Statement Example). 


Same as for Disk Sort (see the discussion on OCL 
Statements in Chapter 2). Also see the heading 
File Statement Considerations in this appendix. 


The FILE statement for WORK must be present in 
CCP/Disk Sort. 


The LABEL keyword identifies the actual work file 
name (wrkfil — see item of Example, CCP 
Assignment Set Statements. 


BE} The LABEL keyword identifies the actual output 
file name (outfil ~ see item of CCP Assignment 
Set Statement Example). 


10) The header specification field definitions for col- 
umns 1-34 for CCP/Disk Sort are the same as those 
defined for disk sort (see Chapter 3). 


CCP/Disk Sort header specification field definition 
variations for columns 35-80 follows. 


Columns 35-36 are reversed for system use. 
Column 35 cannot be used because only one sort 
algorithm exists. 


Columns 37-38 contain the Model 15 storage size 
required to execute the object module. Specify 
a value from 12K to 48K in 2K increments. 


Column 39: Model 4 must contain an R, which 
indicates that a record length exists in columns 
40-43. Model 15 must contain either a C or an R. 
A C indicates that the sort chains to the next task. 
An R or C indicates that a record length exists 

in columns 40-43. 


Note: For program numbers 5799-ATF, 5799-ATG, 


and 5799-ATH, column 39 can contain only an R. 


Columns 40-43 contain the input file record 
length, right justified with or without leading 
zeros. 


Note: If a user comment exists in columns 40-43, 
you must either shorten the comment or remove it. 
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Columns 44-72 contain any comment you wish to 
use. 


Note: If you are redoing the header statement for a 
program not previously used by CCP/Disk Sort, 
remember to rewrite the comment since columns 
40-43 now contain data of a different nature. 


Columns 73-74 are not used. 


Columns 75-80 contain the name given to the object 
program. This is the name that you enter from the 
terminal to invoke the sort. The entry can be: 


Ws A valid program name. The first character 
must be alphabetic, but cannot be a #, $, or 
@ character. The remaining characters must 
be alphameric with no embedded blanks or 
special characters. 


2. Biank. The default is SRTOBJ. 


Note: DIR, ALL, and SYSTEM are reserved names 
and must not be used as program names. 


11] For record type specifications, see Chapter 4. 


12 For field specifications, see Chapter 5. 
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CCP Assignment Set Statements Example 


// DISKFILE NAME-SAMPIN,ORG-C,RECL-aaaa 


2 | 


// DISKFILE NAME-SAMPWK,ORG-C, RECL-256 


// DISKFILE NAME-SAMPOT,ORG-C,RECL-bbbb 


// PROGRAM NAME-anynam,PGMDATA-YES,SORT-YES, 


Oo 2 ] © 


FILES-‘SAMPIN/CG/NOSHR,SAMPWK/CA/NOSHR,SAMPOT/CO/NOSHR’ 





1) SAMPIN (infile) is the same LABEL keyword given 
for FILE NAME-INPUT in the job stream (see item 
El in the Sample CCP/Disk Sort Job Stream). 
This file can be SHR or NOSHR and the value of 
aaaa is the same value used in columns 40-43 of 
the header statement (record length). 


2] SAMPWK (wrkfil) is the same LABEL keyword given 
for FILLE NAME-WORK in the job stream (see item 
[ll in the Sample CCP/Disk Sort Job Stream). 
This file must be NOSHR and RECL must be 256. 


© SAMPOT (outfil) is the same LABEL keyword given 
for FILE NAME-OUTPUT in the job stream (see 
item in the Sample CCP/Disk Sort Job Stream). 
This file must be NOSHR. The value of bbb can be: 


@® The value specified in columns 29-32 of the 
header statement. 


@® A3if SORTA is specified. 
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CCP/Disk Sort Execution (Batch Mode) Job Stream 
Example 


[og 


// LOAD name,unit 





— 
// FILLE NAME-SAMPIN,UNIT-xx,PACK-xxxxxx,. .. 


ee 
// FILE NAME-SAMPWK,UNIT-xx,PACK-xxxxxx,. .. 


re ee 
// FILE NAME-SAMPOUT,UNIT-xx,PACK-xxxxxx,. .. 





// RUN 





1 The name is the name given to the object 
program in columns 75-80 of the header card at 
generation time. If no name was specified, 
the default is SRTOBJ. 


| 2 | These parameters must all be correct for the 
input, work, and output files. 
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Appendix !. CCP/Disk Sort Program for System/3 Models 8, 10, 12, 15A, 15B, and 15C 


Appendix | points out the differences between the 
CCP/Disk Sort Programs for Models 8, 10, 12, and 15A, 
15B, and 15C and the corresponding Disk Sort Program 
for these systems. For a description of the CCP/Disk 
Sort Program, refer to Appendix H of this manual. 


These CCP/Disk Sort Programs are classified as 
programming RPQs (request for price quotation) rather 
thar as Program Products. Your 1BM marketing represen- 
tative can provide information about RPOs. 


Note: Automatic work file allocation is not supported 
by CCP/Disk Sort Programs. 


CCP/DISK SORT PROGRAM (PROGRAM NUMBER 
5799-ATF) 


This CCP/Disk Sort Program is used on System/3 Model 8 
or 10, and operates under control of SCP 5702-SC1. The 
generated object program can be executed under control 
of the Communications Control Program (program number 
5702-SC1, feature 6033). The CCP/Disk Sort Program 
(program number 5799-ATF) is functionally identical 

to the Disk Sort Program for the Models 8 and 10 
(Program Product number 5702-SM1). 


Using CCP/Disk Sort, sort generation requires 12K bytes 
of main storage and a 5444 Disk Storage Drive. 


To execute the generated sort program, 12K bytes of main 
storage is required. The following devices are supported 
for the input, work, and output files: 

© 5444 Disk Storage Drive 


@ 5445 Disk Storage 


@ 5448 Disk Storage Drive 


154 


CCP/DISK SORT PROGRAM (PROGRAM NUMBER 
5799-ATG) 


This CCP/Disk Sort Program is used on System/3 Mode! 12 
and operates under control of SCP 5705-SC1. The 
generated object program can be executed under contro! 
of the Communications Control Program (program number 
5705-SC1, feature 6070 or 6071). The CCP/Disk Sort 
Program is functionally identical to the Disk Sort Program 
for the Model 12 (Program Product number 5705-SM1) 
with one exception, only one input file can be specified 

on this CCP/Disk Sort Program. 


Using CCP/Disk Sort, sort generation requires 12K bytes 
of main storage and a 3340 Direct Access Storage 
Facility. 


To execute the generated sort program, 12K bytes of 
main storage is required. Input, work, and output files 
can reside in the main data area or in the simulation area 
of a 3340 Direct Access Storage Facility. 


CCP/DISK SORT PROGRAM (PROGRAM NUMBER 
5799-ATH) 


This CCP/Disk Sort Program is used on System/3 

Model 15A, 15B, or 15C and operates under control of 
SCP 5704-SC1. The generated object program can be 
executed under control of the Communications Control 
Program (program number 5704-SC1, feature 6033, 6070, 
or 6071). The CCP/Disk Sort Program is functionally 
identical to the Disk Sort Program for the Model 15 
(Program Product number 5704-SM1) with one exception, 
the only devices supported by the CCP/Disk Sort Program 
for the input, work, and output files are the following: 


@ 5444 Disk Storage Drive 
@ 5445 Disk Storage 
@ 3340 Direct Access Storage Facility 


In using CCP/Disk Sort, sort generation requires 12K bytes 
of main storage. 


To execute the generated sort program, from 12K to 48K 
bytes can be specified; however, the maximum task size 
under CCP is 32K bytes. 


ADDROUT sort: The type of sort where the output 
consists of record addresses in the input file. 


alphabetic character: Letters A through Z and special! 
symbols #, $, and @, 


alphameric character: The alphabetic characters defined 
ancl numeric characters 0-9. 


block: A predefined unit of storage space for files on the 
disk. For example, 1 block = 2560 bytes. 


byte: The representation of a character by eight binary 
digits; the amount of storage required for one EBCDIC 
character. 


conditional force: The control field character is replaced 
before the record is sorted, only if the control field in the 


input record contains a particular entry. 


constant: Data that does not change during execution of 
a program. 


coritrol field: One or more specified fields that are com- 


pared to determine the record sequence in the output file. 


data: A collection of facts, numbers, letters, and symbols 
that can be processed by a computer. 


data field: See fie/d. 
execution phase: The part of the sort program that gets 
the records you want to sort, sorts the records, and writes 


the sorted records onto the output file. 


field: One or more adjacent record positions that contain 
related information. 


file: An organized collection of related records. 


file description: The specification for the arrangernent of 
fields within a record and records within a file. 


forced control field: A one-position control field that 
results from replacing the value or adding a value. 
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generation phase: The part of the sort program that trans- 
lates the sequence specifications into machine language. 


input: Data transferred to computer storage for processing. 


integer: A whole number stored in hexadecimal (binary) 
form. 


library: An area on disk that contains procedure members, 
source members, load members, and subroutine members 
as well as areas required by the system control program. 
For example, sort is stored in the library. 


normal control field: Any control field that is specified by 
an N in column 7 of the field sequence specifications. 


OCL: Operation control language. 


OCL statement: A statement that identifies the job and its 
processing requirements to the control program. 


opposite control field: Any control field that is specified 
by an O in column 7 of the field sequence specifications. 


output: Data transferred from computer storage to printed 
form, disk, or to the display screen. 


output file: File resulting from the sort. 


overflow field: In a summary tagalong sort, the field that 
allows for anticipated field expansion. 


packed data field: Each byte within a field represents two 
numeric digits except the low-order byte, which contains 
the sign. For non low-order bytes, bits 0-3 for one digit; 
bits 4-7 for one digit. 


procedure: A named collection of related OCL statements, 
and possibly control! statements that perform a particular 


task. 


procedure member: A procedure stored in the library. 


program date: The date associated with a program 
(job step). 
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real number: A number stored in IBM System/360 
floating-point format, in which the leftmost byte contains 
the sign and exponent (decimal location) and the remaining 
bytes contain the fraction or mantissa in left-justified 
binary form. 


record: A coilection of related data, treated as a unit. For 
example, one line of an invoice might form a record. 


relative record number: Ina direct file, the location of a 
record in relation to the beginning of the file. 


right-justify: The placement of data in a field with the 
last significant byte in the rightmost position. 


sequence specification. Defines the arrangement of a file. 


source member: A collection of records used as input to a 
Program such as RPG II specifications or sort sequence 
specifications. Source members are stored in the library. 


summary data field. In a summary tagalong sort, a data 
field designated for accumulated totals. 


summary tagalong sort: A type of sort that arranges 
records by a specified control! field and accumulates totals 
from specified fields within those records. 


tagalong sort: A type of sort that arranges records by a 
specified control field and includes other specified data 
fields in the output. 


unpacked data field: Each byte within a field represents 
one numeric digit. Bits 0 through 3 are reserved for the 


sign; bits 4 through 7 are the numeric portion. 


work file: An area reserved on the disk for temporary 
storage of the data being sorted. 
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to indicate comments on field description line 37 
to indicate comments on record type lines 30 
// SOURCE statement 
in BUILD cycle for Model 6 98 
in CALL cycle for Model 6 99 
in LOAD cycle for Model 6 94 
to supply sequence specifications for Model 10 and 
Model 15 103 
//SWITCH statement, directed automatic work file 
allocation 14 


action message (A) 
explanation of 121 
printed by the disk sort program 24 
address out sort (addrout), definition and function 5 
addrout and tag along sorts, comparison of 14 
addrout sort (SORTA) (see SORTA) 
alphameric constants, as factor 2 (columns 20-39-—-record 
type specifications) 35 
alphameric data 
as affected by column & record type entry 30 
effect on column 8 record type entry 31 
alternate collating sequence 
ALTSEQ statement use 107 
effect on factor 1 and factor 2 comparison 34 
effect on sort time 111 
indicated on header line (column 26) 23 
restrictions on using column 8 record type entries 107 
ALTSEQ statements 
examples of 108 
how to code 107 
placement in sequence specifications 108 
programming considerations 108 
what they can and cannot change 108 
AND lines 
definition 29 
describing a record type 28 
describing additional factor 1 fields 34 
in include sets 28 
in omit sets 29 
ASCII file 10,11,12 
automatic work file allocation 
directed 5445, Models 12 and 15 13, 14 
effect onsort time 113 
file considerations 13, 14 
multiple file input 10,11,12 
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function 91 
keyword-response summaries 95 
when to use 91 
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3340, forthe 116 
5444, forthe 116 
5445, forthe 116 


C/Z/D/P/U (column 8—record type specifications) 
effect on factor 1 length (columns 9-16) 34 
restrictions when using alternate collating sequence 31 
to indicate packed or unpacked data 30 
to indicate portions of characters to compare 31 
to indicate records you want to sort 31 
when factor 71 and factor 2 contain alphameric data 31 
with signed and unsigned data 31 
C/Z/D/P/U/V (column 8—field description specifications) 
effect on your sorted file 40 
what it tells disk sort 40 
calculating file size 116 
CALL cycle for Model 6 
function 91 
keyword-response summaries 99 
when to use 91 
CCP/disk sort 
$SOURCE 150 
$SWORK 150 
field description specifications (see field description 
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FILE statement considerations 150 
header specifications 
column summary 22 
column 6 (line type) 23 
column 18 (sequence) 23 
column 26 (collating sequence) 23 
column 27 (print option) 24 
column 28 (output option for SORTR) 24 
column 34 (nonverify option) 24 
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column 39 (record length code) 25, 151 
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columns 1-2 (page numbers) 23 
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columns 7-12 (job) 23 
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columns 44-72 (job description) 25, 151 
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CCP/disk sort (continued) 
overview 148 
record type specifications (see record type specifications) 
sample CCP assignment set statements 152 
sample job stream 150 
specifications, differences in 150 
work record length, specifying 150 
characters 
in compare operations 30 
representation within the computer 31 
collating sequence (column 26—header specifications) 
alternate 107 
specified for compare operations 23 
standard 107 
table of 106 
column 5 (fieid description specifications), to add new sequence 
lines without renumbering 37 
column 5 (record type specifications}, to add new sequence 
lines without renumbering 26 
column 6 (line type) 
field description specifications 37 
header specifications 22 
record type specifications 26 
column 7 (continuation or comments), record type 
specifications 30 
column 7 (field type or comments), field description 
specifications 38 
column 8 (C/2Z/D/P/U) 
record type specifications 30 
column 8 (C/Z/D/P/U/V) 
field description specifications 41 
column 17 (conditionally forced character), field description 
specifications 45 
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field description specifications (forced character) 45 
header specifications (sequence) 22 
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field descriptions (specifying replacements) 46 
record type specifications (field or constant) 34 
column 26 (collating sequence), header specifications 22 
column 27 (print option), header specifications 22 
column 28 (output option), header specifications 22 
column 34 (nonverify option), header specifications 22 
column 39 (CCP/disk sort record length code), header 
specifications 25, 151 
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field description specifications 37 
header specifications 22 
record type specifications 26 
columns 3-5 (line number) 
field description specifications 37 
header specifications 22 
record type specifications 26 
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combinations of entries 37,43 
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columns 9-12 (from entry), field description specifications 37, 44 
columns 9-16 (factor 1 location), record type 
specifications 26, 34 
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columns 13-17 (largest total of control fields of any record 
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columns 17-18 (relation), record type specifications 26, 34 
columns 20-22 (overflow field length entry), field 
description specifications 37, 52 
columns 20-27 (factor 2 field), record type specifications 26, 35 
columns 20-39 (factor 2 constant), record type 
specifications 26, 35 
columns 29-32 (output record length), header 
specifications 22, 24 
columns 40-43 (CCP/disk sort record length), header 
specifications 25,138 
columns 40-72 (comments) 
field description specifications 37, 52 
record type specifications 26, 36 
columns 40-72 (job description—disk sort), header 
specifications 22,25 
columns 44-72 (CCP/disk sort job description), header 
specifications 25, 151 
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header specifications 
CCP/disk sort 25, 151 
disk sort 25 
comment line 
field description specification 38 
record type specifications 30 
comments (columns 40-72- field description 
specifications) 37, 52 
comments (columns 40-72—record type specifications), to 
describe record types 26, 36 
compare operations 
affected by column 8 of record type specifications 30 
affected by column 19 of record type specifications 35 
affected by columns 17-18 of record type 
specifications 34 
conditional force 
explanation of 39 
using a force-all line 51 
using normal or opposite and forced control fields 49 
using only forced control fields 48 
conditionally forced character (column 17-—field description 
specifications) 
examples 48 
how todefine 46 
used to assign value to summary overflow field 46 
what it tells disk sort 45 
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as factor 2 {columns 20-39-—record type) 35 
indicated by column 19 of record type specifications 35 
length when used as factor 2 on record type 
specifications 35 
position when used as factor 2 on record type 
specifications 35 
positioning sign in numeric constants 35 
continuation or comment (column 7—record type specifications) 
to describe different record types having identical field 
types 30 
to further describe the same record type 30 
to indicate comment line 30 
to indicate start of include or omit set 30 
control and data fields, when and how to describe one field 
asboth 24 


control fields 
forced 39 
how order affects sort time 113 
how to drop 24 
normal 39 
number of when two or more record types 38 
opposite 39 
packed or unpacked 41 
specifying use by disk sort 38 
to sequence information in sorted records 42 
total lengths when two or more record types 38 
types of 39 
when todrop 41 
conversational OCL for Model 6 
interrelationship with sequence specifications 101 
summary of keywords and responses for OCL cycles 92 
to supply OCL statements 9,16 
when to useeach OCL cycle 91 
cycles, OCL 
functions of 91 
list of 91 


data 
alphameric 31 
numenc 32 
representation within the computer 31 
used in compare operations 30 
data and control fields, when and how to describe one field 
asboth 24 
data fields 
definition 38 
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number of when two or more record types 38 
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data fields, summary (see summary data fields) 
data recorder, tosupply OCL statements 16 
defining 
conditional force characters 46 
force-all characters 46 
unconditional force characters 46 
diagnostic messages print option 24 
digit portion of System/3 character 31 
disk address 5 
disk sort program 
execution phase 121 
files used 6 
general description 3 
generation phase 121 
information OCL statements give your computer 9 
input needed 6 
interaction with input, work, and output files 4 
timings, sample 106 
dropping control fields 
how todo it 22,24 
when todoit 41 


error messages 

explanation of codes 121 

list of 122 
example of using force 63 
examples of addrout and tag alongsorts 55, 72 
examples of integer and real number sorting 83 
examples of summary sort jobs 67 
examples of using forced control fields 47 
execution phase 121 
external indicators 14 


factor 1 (columns 9-16—record type specifications) 
changed by ALTSEQ statements 108 
coding rules 34 
coding when only one character 34 
describing more than one factor 1 field 34 
how fength affected by column Sentry 34 
possible lengths 34 
to identify included or omitted records 34 
factor 2 (columns 20-27 or 20-39—record type specifications) 
changed by ALTSEO statements 108 
coding the sign in packed and unpacked numeric 
constants 35 
how to position the numeric constant in columns 20-39 35 
length of factor 2. constant 35 
length of factor 2 field 35 
rules for coding 35 
factor 2 field (columns 20-27—record type specifications) 
coding rules 35 
coding when one character long 35 
relationship to factor 1 field 35 
field description specifications (disk sort and CCP/disk sort) 
as part of include set 28 
column summary 37 
column 6 (line type) 38 
column 7 (field type or comments) 38 
column 8 (C/Z/D/P/U/V) 40 
column 17 (conditionally forced character) 45 
column 18 (forced character) 45 
column 19 (specifying replacements) 46 
columns you must fill in 37 
columns 1-2 (page number) 38 
columns 3-5 (line number) 38 
columns 9-12 (from) 44 
columns 9-16 (field location) 44 
columns 13-16 (to) 44 
columns 20-22 (overflow field length entry) 52 
columns 40-72 (comments) 52 
explanation of the column entries 38 
what they describe for addrout sorts 38 
what they describe for summary sort 38 
what they describe for tag along sorts 38 
what they tell disk sort 37 
when using an include-all line 27 
field length, dependent on column 8 entry (field description 
specifications) 45 
field location (columns 9-16—field description specifications) 
to identify jocation of field in input record 44 
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field or constant (column 19—record type specifications) to 
determine if factor 2 is constant or field 35 

field type or comments (column 7—field description 
specifications) 38 

file considerations 10 

file location on disk, effect on sort time 111 

FILE statement considerations 150 


force-all 
explanation 39 
result if not used 46 
used after conditional force lines 40 
force-all character 
examples of 51 
how todefine 46 
force, example of 63 
forced character (column 18—field description specifications) 
used to initialize summary overflow field 46 
when and how character is forced 45 
forced control fields 
examples 47 
rules for using 42 
types 39 
when to use 39 
format of records 
definition 8 
effect on order of sequence specifications 8 
from entry (columns 9-12—field description specifications) 
describing one character field 44 
to indicate first position of field in input record 44 
from entry (columns 9-12—record type specifications) to 
indicate first position of factor 1 in input record) 34 
from entry (columns 20-23—record type specifications) to 
indicate first position of factor 2 field in input record 35 


generation phase 110 


header specifications, CCP/disk sort 
column summary 22 
column 6 (line type) 23 
column 18 (sequence) 23 
column 26 (collating sequence) 23 
column 27 (print option) 24 
column 28 (output option for SORTR) 24 
column 34 (nonverify option) 24 
column 39 {record length code) 25, 151 
columns that you must fillin 22, 151 
columns 1-2 (page numbers) 23 
columns 3-5 (line number) 23 
columns 7-12 (job) 23 
columns 13-17 (largest total of control fields of any record 
type) 23 
columns 29-32 (output record length for SORTR) 24 
columns 40-43 (record length) 25, 151 
columns 44-72 (job description) 25, 151 
columns 75-80 (program name) 25, 151 
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header specifications, disk sort 
column summary 22 
column 6 (line type) 23 
column 18 (sequence) 23 
column 26 (collating sequence) 23 
column 27 (print option) 24 
column 28 (output option for SORTR) 24 
column 34 (nonverify option) 24 
columns that you must fil} in 22 
columns 1-2 (page numbers) 23 
columns 3-5 (line number) 23 
columns 7-12 (job) 23 
columns 13-17 (largest total of control fields of any record 
type) 23 
columns 29-32 (output record length for SORTR) 24 
columns 40-72 (job description) 25 
explanation of column entries 23 
what they tell disk sort 22 


include line, to select records to sort 27 
include set 
definition 28 
mixing with omit sets 28 
rules for using 28 
when to use 28 
include-all line 
implied 8 
to sort records that have not been included or omitted 27 
information message (1) 121 
initializing an overflow field 52 
input file 
calculating storage tracks for 116 
considerations 9 
considering overlay when programming 13 
defined during BUILD cycle 84 
defined during LOAD cycle 81 
how its position on disk affects sort time 112 
input sequence specifications, order when using ALTSEQ 108 
input to disk sort, file types that youcansort 6 
instructions for executing disk sort sample program 
for Model 6 146 
for Model 10 147 
for Model 15 147 


job (columns 7-12—header), to specify the type of sort 23 

job description (columns 40-72--header specification for 
disk sort), to supply comments 25 

job description (columns 44-72—header specification for CCP/disk 
sort), tosupply comments 25, 151 


largest total of control fields of any record type (columns 
13-17~—header specification), calculating entry 23 
fength 
factor 1 of record type specifications 34 
factor 2 constant (columns 20-39—record type 
specifications) 35 
factor 2 field (columns 20-27—record type specifications) 35 
maximum field tength for columns 7-8 (field description 
specifications) 43 
library source 103 
line number (columns 3-5) with page number (columns 1-2) 
for sequencing 
field description specifications 38 
header specifications 23 
record type specifications 27 
line type (column 6) 
to identify field description line (field description 
specifications) 38 
to identify header line (header specifications) 23 
to identify include line (record type specifications) 27 
to identify include-all line (record type 
specifications) 27 
to identify omit tine (record type specifications) 27 
LOAD cycle for Model 6 
function 91 
keyword-response summary 92 
when to use 91 


main storaye size, effect on sort time 110 
main storage, amount used by sequence specifications 111 
messages 

alphabetic codes 121 

list 122 

types printed by the disk sort Program 24 
MODIFY keyword 

response in BUILD cycle 98 

response in CALL cycle 99 

response in LOAD cycle 94 
multiple input files (Model 15 only) 149 
multiple input support 10 


nine-track tape considerations 16 
nonverify option (column 34—header specifications) 24 
timing considerations 110 
normal control field 
changed by ALTSEQ statements 108 
definition 39 
how disk sort uses 39 
number of records 
etfect on order of the sequence specifications 8 
effect on sort time 110 
number of sequence specifications, effect on sort time 111 
numeric constants, coding negative constants 35 
numeric data 
data formats and column 8 entry combinations 31 
defined by column 8 record type entry 32 
definition of types 30 
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numeric data (continued) 
explanation of positive and negative (signed) numeric 
data 32 
indicated by column 8 of record type specifications 31 
packed numbers 32 
unpacked numbers 32 


OCL cycles for Model 6 
functions 91 
list 91 
summary of keywords and responses \ 92 
OCL statements 
interrelationship with sequence specifications 101 
supplying for Model 6 16, 91 
supplying for Model 10 16, 102 
supplying for Models 12 and 15 17, 102 
what they tell about disk sort 9 
what they tell about the input file 9 
what they tell about the output file 9 
what they tell about the sequence specifications 9 
what they tell about the work file 9 
with conversational OCL 16 
with online data recorder 16 
without online data recorder 16 
omit line 
to exclude records from your sort 27 
when and how to use 27 
omit set 
definition 28 
mixing with include set 29 
rules for using 28 
types 29 
when to use 29 
opposite control field 
changed by ALTSEQ statements 108 
column 8 field description entry when sorting different 
record types 41 
definition 39 
how disk sort uses 38 
when to use 42 
OR lines 
definition 29 
describing different record types 28 
in include sets 29 
in omit sets 29 
order of sequence specifications 
affected by number and format of records 8 
normalorder 8 
out-of-sequence fines 
how to insert in field description specifications 38 
how to insert in record type specifications 27 
output 
addrout sort 5 
OCL statements and error messages 16 
summary tagalongsort 6 
tagalongsort 5 
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output file 
calculating storage tracks for 116 
considerations 14 
defined by BUILDcycle 97 
defined by LOAD cycle 93 
how position on disk affects sort time 111 
OCL statements needed if input file is temporary 9 
overlaying input file (RETAIN-S vs RETAIN-T) 13 
output option for SORTR (column 28—header specification) to 
drop control fields in tag along {SORTR) sorts 24 
output record length for SORTR (columns 29-32—header 
specifications) 
calculating when dropping control fields 24 
calculating when not dropping control fields 24 
overflow field length entry (columns 20-22—field description 
specifications) 52 
overflow indicator field 
how to define (columns 7-8—field description 
specifications) 46 
how to initialize (column 18—field description 
specifications) 52 
wher to use 52 
overview of disk sort 3 


packed numeric data 
number of bits in each digit 32 
position of sign code 32 
possible positive and negative sign codes 32 
packed, unpacked, opposite character, or opposite zone 
control fields 41 
page number (columns 1-2) with line number (columns 3-5) 
for sequencing (see line number) 
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